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Bon de commande 


Cassettes de jeux 


99A Mineur, Prêt, Electronique 

99B  Yahtzee, Chardef, Division, Régression linéaire 

99C Dames, Nim, Division 2, Isola, Schmoo, Robots 

99D Conjugaisons, Caractérologie, Car Driver, Poker, Cannibales 

99E Mic-Math, Course de chavaux, Poursuite, Jeu de dés, 
Guerre atomique, Course en ligne droite 


Disquettes de jeux 
Mastermind (cf. 99 Magazine n° 3) 
Galaxia (cf. 99 Magazine n° 7) 
Disquettes utilitaires 


Routines graphiques (cf. 99 Magazine n° 4, 5,6 et 7) 
Désassembleur (cf. 99 Magazine n° 5) 
Crayon optique (cf. 99 Magazine n° 8) 


Anciens numéros 


99 Magazine 1234567869 
Cassette d'accompagnement 125354947872 


Numéros 10 et 11 


99 Magazine 10 11 
Cassette d'accompagnement 10 11 à S55,00F 


Total TTC 


Supplément pour port avion hors CEE 
15,00 F par revue etlou cassette etlou disquette 


Montant du règlement joint . 


Adresse : 


Envoyer ce bon et votre règlement à : 


Editions MEV - 64, rue des Chantiers - 78000 Versailles 
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Editorial 


Lorsque, en décembre 83, nous apprîmes l'arrêt de fabrication du TI1-99/4A, nous savions qu'il nous 
faudrait cesser prématurément l'édition de votre magazine. Cette date est proche puisque le prochain 
numéro de “99 Magazine” sera le dernier, le nombre de lecteurs s'étant trop amenuisé pour que nous 
puissons nous maintenir au-dessus du seuil de rentabilité. Les difficultés pour trouver des 
extensions, l'apparition du "standard" MSX et de machines à la fois bon marché et performantes ont 
eu raison de la fidélité à Texas Instruments de nombre de nos lecteurs. 


Nous ne prenons donc plus les commandes d'abonnements dont le dernier numéro à reçevoir serait 
supérieur à 11. En revanche, il est toujours possible de prendre un abonnement "rétroactif”. 


Si votre abonnement en cours - avec ou sans cassettes - comporte des numéros au delà du 11, nous 
vous rembourseront de la différence d'une manière qui reste à déterminer. L'éditorial du prochain 
numéro vous en dira plus sur ce point. S'il vous manque des anciens numéros, vous pouvez 
désormais les obtenir avec une remise de 36% ; c'est le moment de compléter votre collection, 
d'autant plus que ceci est aussi valable pour les cassettes. 


Georges Goument, qui nous proposait “Starline”, “Ticrok” et “Pentaxe” dans le précédent 
numéro, a encore écrit en Basic TI deux excellents programmes : “Barmélo” et “Puzzle de chiffres” ; 
il s'agit de deux "casse-têtes" informatiques. On retrouve aussi dans ce numéro Bernard Bezuel 
qui nous communique quatre nouvelles routines pour son crayon optique. 

“Tracé de courbes par splines cubique”... mystérieux, non ? Gérard Santraille vous dévoile tous 
les secrets de cette méthode, exemple à l'appui. 

Philippe Misandeau, qui nous avait par le passé gratifié d'une contribution, nous livre cette fois 
le fruit d'une expérience pédagogique livrée en tant que professeur. Toujours au chapitre des 
expériences, Jean-Bernard Morelle nous fait part de ses impressions comme utilisateur du 
programme “Fichier d'adresses” Texas Instruments. 

Gérard Baroni et Jean Marin (est-il encore utile de dire qu'il s'agit du club Ticazur ?) ont 
exploré les GROM du TI1-99 pour y découvrir la définition des caractères ASCII ; bien utile lorsque 
l'on est en mode Bitmap. 

Nous allons maintenant parler de transfert d'informations. Denise Amrouche nous propose un 
programme qui autorise le transfert des jeux d'aventures depuis les cassettes vers des disquettes 
alors que Michel Teyssou nous donne la possibilité de faire la même chose avec une méthode - 
pas un programme - moins souple, mais plus universelle. 

Nous ne terminerons pas sans citer une contribution de haut niveau d'Alexandre Amortila, qui 
autorise des transferts d'informations cassettelmémoire et mémoirelcassette trois fois plus rapide que 
de coutume. 


Rédacteur en chef - Directeur de la publication : Hervé Thiriez. Rédaction : Jean-Luc Bazanegue, Gérard 
Santraile. Dessins : Laurent Bidot. Ont collaboré à ce numéro : Alexandre Amortila, Denise Amrouche, 
Gérard Baroni, Jean-Luc Bazanegue, Bernard Bezuel, Alexandre Duback, Georges Goument, Jean Marin, Philippe 
Misandeau, Jean-Bernard Morelle, Gérard Santraille, Michel Teyssou. 


Editions MEV - 64/70, rue des Chantiers - 78000 Versailles - Tél. : 39.51.24.43. 
Publicité : consultez les Editions MEV. 
Impression : Imprimerie du Lion - Repro-Versailles - 25, rue Michel Lecomte - 75003 Paris - Tél. : 42.72.96.19. 
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Un puzzle de chiffres 


Georges Goument 


précautions indispen- 
sables avant d'entamer 
la partie : s'installer 
confortablement, garder 
à disposition eau et calmants. En 
effet, deux opérations aussi 
simples que l'addition et la 
soustraction pourraient bien vous 
mener au bord de la dépression. 


Le but du jeu. 


+ L'ordinateur choisit un chiffre, 
1 ou O0, l'affiche au dessus du 
jeu et remplit les 36 cases du 
plateau avec ce même chiffre. 


Il effectue ensuite un certain 
nombre de brouillages qui 
modifient tout ou partie de ce 
tableau. 


Vous sortirez vainqueur de ce 
jeu en remettant le chiffre 
d'origine dans chacune des 
cases. 


Mode d'emploi 


Le chiffre servant de base à 
chaque combinaison apparait en 
une couleur inversée à l'écran. 
Vous vous déplacez d'une case à 
l'autre avec les touches E, X, S 
et D (les flèches indiquant le sens 
du déplacement). Chacune de ces 
évolutions modifie en consé- 
quence la couleur du chiffre 
concerné. 


Vous appuierez sur ENTER pour 
permutter le chiffre choisi ainsi 
que ceux qui lui sont contigus (de 
deux à quatre selon la position sur 
le plateau). 


Chaque permutation donne le 
résultat suivant : le chiffre 
sélectionné diminue de 1, les 2, 3 
ou 4 chiffres contigus augmentent 
de 1. 


Dès que vous avez reconstitués 
les 36 chiffres, appuyez sur V. 


Pour éviter de trop malmener vos 
nerfs, vous disposerez de la 
touche I. 


Les chiffres sont classés dans 
l'ordre suivant :123456789 
0 ; si vous dépassez 1, vous allez 
à O et réciproquement, au delà de 
0, vous retournez à 1. 


Le programme 


Quelques points de repères dans 
le basic : 

23-61 

Présentation et accompagnempent 
musical 


62-121 


Redéfinition des caractères, 
dessin du plateau 


122-154 
Choix d'un chiffre par le TI 


155-162 
Affichage de ce chiffre au-dessus 
du plateau 


163-182 

Remplissage du plateau (36 
cases). Ces lignes servent 
également en fin de partie avec la 
touche V pour vérifier la 
concordance du plateau avec la 
solution 


183-211 
Choix du nombre de brouillages 


(entre 16 et 36) et tirage aléatoire 
des chiffres à brouiller 

212-222 

Affichage et effacement de textes 
divers 

223-298 

Mise en attente des différentes 
touches du clavier 


JE CHOTSTE LE 


D nu eo me 


ee = Pi = PE = PE = D = = D = A = D = PE = EN = Pi = | 


al=lenlels 


OEOROSE 
C9 09 09 C3 22 61 
co|e [cs LE eo 
BST ES EEE SEE 


(es . 
ASS EE ES SE EEE 
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299-452 453-490 491-503 

Déroulement du jeu (déplacements  Sous-programmes divers Permet de commencer une 
et permutations selon valeur du vérification, annulation, textes. nouvelle partie 
chiffre) Fin du jeu et commentaires. 


Puzzle de chiffres 


REM XAHAHHHHXHXHX XX 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM *99 Magazine* 

REM * * 

REM RH HAHH XX 

CALL CLEAR 

CJ=0 

CALL SCREEN(13) 

FOR I=1 TO 16 

CALL COLOR(I,1,1) 

NEXT I 

FOR I=40 TO 47 

READ A$ 

CALL CHAR(I,A$) 

NEXT I 

DATA 8040343E18371507,01022C7C1 

8ECA8E, 071537183E34408, EOA8EC18 

7C2C0201 

DATA 182499422418C3, 00C31824429 

92418,4448122525124844,221248A4 

A4481222 

CALL CHAR(33,"FFFEFFEFFEFFFFFFF" 

) 

PRINT TAB(9);"{(4yrrrrrrrrr)":TAB 
N:TAB(S) EST 


PUZZLE 
DE 
CHIFFRES 
Basic TI 


G. Goument 


CEE 
%Æ Æ Æ Æ Æ Ù À Ù 


(9) ; 
u de reflexion"::TAB(13);"pour" 


PRINT TAB(11);"1 joueur" 
CALI, COLOR (114,1) 

CALIL COLOR(2,14,1) 

CALL COLOR(3,12,1) 

CALL COLOR(4,12,1) 

FOR I=5 TO 8 

CALI COLOR (I,10,14) 

NEXT I 
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A vous de jouer. 


99 


FOR I=9 TO 12 

CALL COLOR(I,12,1) 

NEXT I 

GOSUB 52 

GOTO 62 

RESTORE 58 

FOR I=1 TO 54 

READ D,N 

CALL SOUND(-50*D,N*6,4,N*4,6,N/ 
2, 8) 

NEXT I 

RETURN 

DATA 2,523;2,58712:5897;2r981/;2; 
587,2; 529,4; 6022,;2,987,2,523;2; 6 
9,2, 194,2,1087,4,1047,;2, 1047, 2 
, 880 

DATA 2,784,2,698,2,1047,2, 698,2 
: 659,2, 659,2,587;2,698,2,659,4, 
DO ri 5015 2895 dr O5 25 08:77 
84 

DATA 2,784,2,659,4,784,2,784,2, 
698,2,440,2,440,2,349,3,440,2,4 
A0 L2,8 62,23 290% 3 2 F307 Le 302, 2139 
2 

DATA 2,330,4,392,2,392,2,; 349%; À; 
349,2,220; 2,220, 3; 389, 7:220 
CALL CLEAR 

RANDOMIZE 

AN=0 

PG=0 

VE=0 

FOR I=1 TO 8 

CALL COLOR(I,1,1) 

NEXT I 

M$="patientez je dessine le jeu 


GOSUB 212 

FOR I=48 TO 95 

READ AS 

CALL CHAR(I,AS$) 

NEXT I 

DATA FF80808183878181,FF0101818 
1818181,81818181838080FF, 818181 
81C10101FF 

DATA FFFFFFFEFCF8FEFE, FFFFFF7F7 
F7F7F7F,FEFEFEFEFCFFFFFE, 7F7F7F 
7F3FFFFFFF 

DATA FF80808387868081,FF0101C1E 
16161C1,83868687878080FF, 010101 
E1E10101FF 

DATA FFFFFFFCF8F9FFFE, FFFFFF3F1 





95 


96 


97 


98 


99 


F9F9F3F,FCF9F9F8F8FEFFEFFE,FFFEFF 
IFIFFFFEFF 
DATA FF80808387868081,FF0101C1E 
16161C1,81808687838080FF,C16161 
E1C10101FF 
DATA FFFFFFFCF8FOFFFE,FFFFFF3F1 
F9F9F3F,FEFFFSFS8SFCFFFEFF, 3F9F9F 
1F3FFFEFFFF 
DATA FF80808686868686,FF0101010 
101C1C1,87878080808080FF,E1E1C1 
C1C10101FF 
DATA. FFFFFFFSFOF9FO9F9,FFFEFFFFF 
FFF3F3F,F8FS8FFFFFFFFFFFF, 1F1F3F 
3F3FFFFFFF 
DATA FF80808787868687,FFO0101E1E 
10101C1,81808687838080FF,E16161 
E1C10101FF 
DATA FFFFFFF8F8F9F9F8,FFFFFF1F1 
FFFFF3F,FEFFFO9FS8FCFFFFFF, 1F9F9F 
1F3FFFFFFF 
DATA FF80808387868687,FF0101C1E 
16101C1,87868687838080FF,E16161 


"E1C10101FF 


DATA FFFFFFFCF8F9F9F8,FFFFFF3F1 
F9FFF3F,FS8F9F9FS8FCFFEFFFF, 1F9F9F 
1F3FFFFFFF 

FOR I=128 TO 159 

READ AS$ 

CALL CHAR(I,A$) 

NEXT I 

DATA FF80808787808083,FF0101E1E 
16161F1,80818183838080FF,C18181 
01010101FF 

DATA FFFFFFFS8F8FFFFFC,FFFFFF1F1 
F9F9FOF,FFFEFEFCFCFFFFFF, 3F7F7F 
FFFFFFFFFF 

DATA FF80808387868683,FF0101C1E 
16161C1,87868687838080FF,E16161 
E1C10101FF 

DATA FFFFFFFCF8F9F9FC, FFFFFF3F1 
F9F9F3F,F8F9F9F8FCFFEFFE, 1F9F9F 
1F3FFFFFFF 

DATA FF80808387868683,FF0101C1E 
16161E1,83808686838080FF,E16161 
E1C10101FF 

DATA FFFFFFFCF8F9F9FC,FFFFFF3F1 
F9F9F1F,FCFFF9F8FCFFFFFF, 1F9F9F 
IF3FFFFFFF 

DATA FF80808387868686,FF0101C1E 
1616161,86868687838080FF, 616161 
E1C10101FF 

DATA FFFFFFFCF8F9F9r9,FEFFFFF3F1 
F9F9F9F,F9F9F9F8FCFFFFFF, 9F9F9F 
1F3FFFFFFF 


100 FOR I=1 TO 8 

101 READ AÀ,B,C,D 

102 CALL HCHAR(A,B,C,D) 

103 DATA 6,10,33,14,19,10,33,14,5, 


9, 40,1,5,24,41;1,20;9,42,1,20,2 


4,43,1,5,10,44,14,20,10,45,14 
NEXT I 
CALL VCHAR(7,10, 33,12) 
CALL VCHAR(7,23, 33,12) 
CALL VCHAR(6,9,47,14) 
CALL VCHAR(6,24,46,14) 
CALL COLOR(3,2,5) 
CALL COLOR(4,2,6) 
CALL COLOR(5,2, 9) 
CALL COLOR(6,2,10) 
CALL COLOR(7,2,11) 
CALL COLOR(8,2,12) 
CALL COLOR(13,2,3) 
CALL COLOR(14,2,4) 
CALL COLOR(15,2,8) 
CALL COLOR(16,2,15) 
CALL COLOR(1,14,1) 
CALIL COLOR(2,14,1) 
GOSUB 221 
A=INT((10-1+1) *RND) +1 
IF A>1 THEN 126 
A=48 
GOTO 151 
IF A>2 THEN 129 
=56 
GOTO 151 
IF A>3 THEN 132 
A=64 
GOTO 151 
IF A>4 THEN 135 
A=72 
GOTO 151 
IF A>5 THEN 138 
A=80 
GOTO 151 
IF A>6 THEN 141 
A=88 
GOTO 151 
IF A>7 THEN 144 
A=128 
GOTO 151 
IF A>8 THEN 147 
A=136 
GOTO' 151 
IF A>9 THEN 150 
A=144 
GOTO 151 
A=156 
M$="je choisi le" 
LI=1 
CO=2 
GOSUB 217 
X=16 
Y=1 
W=A 
FOR I=X TO X+1 
CALL HCHAR(Y,I,A) 
CALL HCHAR(Y+1,I,A+2) 
A=A+1 
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162 NEXT I 

163 M$="remplissage du plateau" 

164 GOSUB 212 

165 Y=7 

166 FOR I=1 TO 6 

167 FOR X=11 TO 21 STEP 2 

168 IF VE=0 THEN 172 

169 CALL GCHAR(Y,X, A) 

170 IF A<>WN THEN 346 

171 GOTO 176 

172 CALL HCHAR(Y,X, W) 

173 CALL HCHAR(Y+1,X,W+2) 

174 CALL HCHAR(Y,X+1,W+1) 

175 CALL HCHAR(Y+1,X+1,W+3) 

176 NEXT X 

177 Y=Y+2 

178 IF VE=0 THEN 180 

179 CALL SOUND(11,1946,10) 

180 NEXT I 

181.IF VE=1 THEN 291 

182 GOSUB 221 

183 M$="brouillage des chiffres" 

184 GOSUB 212 

185 NP=INT((36-16+1) *RND) +16 

186 FOR P=1 TO NP 

187 Y=0 

188 Y=INT((17-7+1) *RND) +7 

189 IF Y=7 THEN 197 

190 IF Y=9 THEN 197 

191 IF Y=11 THEN 197 

192 IF Y=13 THEN 197 

193 IF Y=15 THEN 197 

194 IF Y=17 THEN 197 

195 GOTO 187 

196 X=0 

197 X=INT((21-11+1) *RND) +11 

198 IF X=11 THEN 299 

199 IF X=13 THEN 299 

200 IF X=15 THEN 2939 

201 IF X=17 THEN 299 

202 IF X=19 THEN 2939 

203 IF X=21 THEN 299 

204 GOTO 196 

205 NEXT P 

206 GOSUB 221 

207 P=37 

208 M$="termine 

209 GOSUB 212 

210 GOSUB 221 

211. GOTO: 223 

212 LI=24 

213 CO=2 

214 FOR I=1 TO 5 : 

215 CALL SOUND(10,-1,10) 

216 NEXT I 

217 FOR I=1 TO LEN(M$) 

218 CALL HCHAR(LI,CO+I, ASC (SEGS (M$ 
/I,1))) 

219 NEXT I 


a vous de jouer" 
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220 RETURN 

221 CALL HCHAR(24,3,32,28) 

222 RETURN 

223 Y=11 

224 X=15 

225 A=0 

226 C=0 

227 G=0 

228 U=0 

229 v=0 

230 Dy=2 

231 DX=2 

232 GOSUB 299 

233 YA=Y 

234 XA=X 

235 CALL KEY(3,7T;,5) 

236 IF S=0 THEN 235 

237 IF T<>13 THEN 255 

238 CJ=CJ+1 

239 IF CJ<>100 THEN 243 

240 M$="pensez vous y arriver" 

241 GOSUB 212 

242 GOTO 250 

243 IF CJ<>200 THEN 247 

244 M$="ca devient assez inquietan 
t" 

245 GOSUB 212 

246 GOTO 250 

247 IF CJ<400 THEN 390 

248 M$="ras la memoire je stoppe" 

249 GOSUB 212 

250 FOR I=1 TO 150 

251 NEXT I 

252 GOSUB 221 

253 IF CJ=450 THEN 488 

254 GOTO 390 

255 IF T<>68 THEN 263 

256 GOSUB 355 

257 IF XA+DX>21 THEN 261 

258 X=XA+DX 

259 Y=YA 

260 GOTO 232 

261 X=21 

262 GOTO 232 

263 IF T<>69 THEN 271 

264 GOSUB 355 

265 IF YA-DY<7 THEN 269 

266 Y=YA-DY 

267 X=XA 

268 GOTO 232 

269 Y=7 

270 GOTO 232 

271 IF T<>83 THEN 279 

272 GOSUB 355 

273 IF XA-DX<11 THEN 277 

274 X=XA-DX 

275 Y=YA 

276 GOTO 232 

277 X=11 





GOTO 232 338 IF P<=NP THEN 390 
IF T<>88 THEN 287 339 CALL SOUND(5,1940,18) 
GOSUB 355 340 FOR I=X TO X+1 

IF YA+DY>17 THEN 285 341 CALL HCHAR(Y,1I,G) 
Y=YA+DY 342 CALL HCHAR(Y+1,I,G+2) 
X=XA 343 G=G+1 

GOTO 232 344 NEXT I 

=17 345 RETURN 

GOTO 232 346 FOR I=1 TO 5 

IF T<>86 THEN 293 347 CALL SCREEN(12) 
GOSUB 353 348 CALL SOUND(10,110,5) 
VE=1 349 CALL SCREEN(10) 

GOTO 165 350 NEXT I 
VE=0 351 CALL SCREEN(13) 

GOTO 453 352 GOTO 459 

IF T<>73 THEN 235 353 YA=Y 
AN=1 354 XA=X 
M$="partie annulee" 355 CALL GCHAR(YA, XA, A) 
GOSUB 212 356 IF A<>52 THEN 359 
GOSUB 221 357 C=48 

GOTO 469 358 GOTO 384 

CALL GCHAR(Y,X,A) 359 IF A<>60 THEN 362 
IF A<>48 THEN 304 360 C=56 
A=152 361 GOTO 384 

=52 362 IF A<>68 THEN 365 
GOTO 338 363 C=64 

IF A<>56 THEN 308 364 GOTO 384 
A=48 365 IF A<>76 THEN 368 
G=60 366 C=72 
GOTO 338 367 GOTO 384 

IF A<>64 THEN 312 368 IF A<>84 THEN 371 
A=56 369 C=80 
G=68 370 GOTO 384 
GOTO 338 371 IF A<>92 THEN 374 
IF A<>72 THEN 316 372 C=88 
A=64 373 GOTO 384 
G=76 374 IF A<>132 THEN 377 
GOTO 338 375 C=128 

IF A<>80 THEN 320 376 GOTO 384 
A=72 377 IF A<>140 THEN 380 
G=84 378 C=136 

GOTO 338 379 GOTO 384 

IF A<>88 THEN 324 380 IF A<>148 THEN 383 
A=80 381 C=144 

G=92 382 GOTO 384 

GOTO 338 383 C=152 

IF A<>128 THEN 328 384 FOR I=XA TO XA+1 

385 CALL HCHAR(YA,I, C) 
386 CALL HCHAR(YA+1,I,C+2) 

GOTO 338 387 C=C+1 

IF A<>136 THEN 332 388 NEXT I 

A=128 389 RETURN 

G=140 390 CALL SOUND(130,-4,5,40000,5, 40 
GOTO 338 000,5:110;5) 

IF A<>144 THEN 336 391 FOR I=X TO X+1 
A=136 392 CALL HCHAR(Y,I,A) 

=148 393 CALL HCHAR(Y+1,1I,A+2) 
GOTO 338 394 A=A+1 

A=144 395 NEXT I 

G=156 396 F=2500 
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IF Y=7 THEN 401 
U=Y-2 

=X 

GOSUB 416 

IF X=21 THEN 405 
U=Y 

V=X+2 

GOSUB 416 

IF Y=17 THEN 409 
U=Y+2 

V=X 

GOSUB 416 

IF X=11 THEN 413 
U=Y 

v=x-2 

GOSUB 416 

IF P=NP THEN 206 
IF P<NP THEN 205 
GOTO 225 

CALL GCHAR(U, V,A) 
IF A>48 THEN 420 
A=56 

GOTO 445 

IF A>56 THEN 423 
A=64 

GOTO 445 

IF A>64 THEN 426 
A=72 

GOTO 445 

IF A>72 THEN 429 
A=80 

GOTO 445 

IF A>80 THEN 432 
A=88 

GOTO 445 

IF A>88 THEN 435 
A=128 

GOTO 445 

IF A>128 THEN 438 
A=136 

GOTO 445 

IF A>136 THEN 441 
A=144 

GOTO 445 

IF A>144 THEN 444 
A=152 

GOTO 445 
A=48 | 
CALL SOUND(100,F,15) 
FOR I=V TO V+1 
CALL HCHAR(U,I,A) 
CALL HCHAR(U+1,I,At+2) 
A=A+1 

NEXT I 

F=F+200 

RETURN 

PG=1 

M$="bravo c est reussi" 
GOSUB 212 

GOSUB 52 
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457 GOSUB 221 

458 GOTO 469 

459 M$="permutations incompletes" 

460 GOSUB 212 

461 GOSUB 221 

462 M$="continuez la partie" 

463 GOSUB 212 

464 GOSUB 221 

465 FOR Y=7 TO 19 STEP 2 

466 CALL HCHAR(Y,25, 32) 

467 NEXT Y 

468 GOTO 223 

469 M$="nouvelle partie o à" 

470 GOSUB 212 

471 CALL KEY(3,T,S) 

472 IF S=0 THEN 471 

473 IF T<>78 THEN 491 

474 CALL CLEAR 

475 IF AN=1 THEN 477 

476 IF PG=1 THEN 480 

477 PRINT "la prochaine fois essay 
es denr:" terminer la parti 
“SET du bonne journee":: 


478 GOSUB 52 

479 GOTO 483 

480 PRINT " vous etes un partenair 
e de”"s:" premiere force": 
:::"je suis impatient de rejoue 
5 AM 

481 PRINT :::" 
e” 

482 GOSUB 52 

483 CALL CLEAR 

484 NCJ=NP*10 

485 PRINT " vous avez joue";CJ;"f 

ois" 

486 PRINT ::::" vous deviez reus 
sir en"::TAB(9);NCJ;" coups"::: 


a tres biento 


487 END 

488 CALL CLEAR 

489 PRINT "lors de la prochaine pa 
rtie"::" essayer de mieux etud 


." 
e 


le jeu avant chaque co 


490 GOTO 481 

491 IF T<>79 THEN 471 
492 GOSUB 221 

493 CJ=0 

494 PG=0 

495 AN=0 

496 FOR X=11 TO 22 

497 CALL VCHAR(7,X, 32,12) 
498 NEXT X 

499 CALL HCHAR(1,3,32,12) 
500 FOR X=16 TO 17 

501 CALL VCHAR(1,X, 32,2) 
502 NEXT X 

503 GOTO 122 
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Quatre nouvelles 
routines pour le 
crayon optique 


vant de vous présenter 
les quatre routines à 
ajouter à celles que 
nous avons publiées 


dans le numéro 8 de "99 Maga- 


zine”, il convient de combler une 
lacune de ce même numéro. En 
effet, afin que l'image en cours 
ne soit pas altérée par les 
entrées/sorties (lors de l'utilisa- 


CE LLLLLLLLLLARR 


Bernard 
Bezuel 


tion des options "ENRE" et 
"RECH"), il faut utiliser CALL 
FILES (2). On peut donc imagi- 
ner un programme de chargement 
qui aurait pour forme : 


Trait à passer 
en 
ET / 
en "ON" ou 
"OFF" avec 
l'option 
"INVT et 
"POINT" ou 
"SEGM" 


OL LLLLOLC 


BARR 


GRILLE 

à effacer avec 
"INVI'"' et 
"SEGM" 


Placer les barres avec l'option "BARR" avant tout remplissage 


12 
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100 CALL INIT 

110 CALL FILES(2) 

120 CALL LOAD("DSK1.CR 
AYON/O") 

130 END 


Routine "GRIL" 


La principale utilité de cette 
routine est le remplissage de 
surfaces avec deux couleurs 
différentes sur un même octet 
(une ligne de huit pixels). Chaque 
ligne verticale tracée à l'écran 
représente le bit de poids fort 
d'un octet (correspondant au 
pixel le plus à gauche d'une ligne 
de huit pixels). En jouant sur les 
options "FOND" et "REMP”"", il 
est possible de colorier toute une 
surface sans altérer la couleur 
d'une surface voisine, dans le 
même octet. 


Routine "BARR" 


Sur une même bande verticale de 
huit pixels, il est également 
possible de jouer avec les options 
"FOND" et "REMP", en frag- 
mentant avec l'option "BARR". 


Routine "CERC" 


Cette routine autorise le tracé de 
cercles à l'écran. Elle est très 
simple d'emploi, puisqu'il suffit 
de lui donner le centre, suivi du 
rayon. Cette routine n'utilisant 
pas les fonctions trigonomé- 
triques du TI, un algorithme a été 
développé pour l'occasion. 


Routine CADR" 


Il s'agit d'une routine de tracé de 
rectangle, pour laquelle il 
convient d'indiquer les positions 
de deux angles opposées. 


Mise à jour du 


programme 


Vous trouverez, joint à cet article, 
une liste des modifications à 
apporter aux sources des routines 
publiées dans le précédent 
numéro, et ce afin de permettre 


l'implantation des 
nouvelles fonctions. 


quatre 
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Source GRIL/S 


*x x 


GRIHG 
GRIBD 
GRILLE 


GRI12 


GRILLE SUR ECRAN 


** GRIHG 


DATA 0 

DATA 0 

MOV @DP10,@DP10 

JNE GRIO5 : 

MOV  @COORD, @GRIHG SAUVEGARDE SOMMET 
GRILLE 

INC 

BLWP 

CLR 

JMP 

MOV 


@DP10 

@LIGNE 

@DP2 

GRI25 

@COORD, @GRIBD SAUVEGARDE SOMMET 
GRILLE 


AFFICHAGE SOMMET 
DRAPEAU SEGMENT 


CLR 
MOV 
LI 
LE 
LI 


@DP10 

@GOUTECR, GATRIBU+36 
RO, TABLUT+36 
R1,ATRIBU+36 
R2, 4 

QVMBW 

RO 

R1 

R2 

R3 

@GGRIHG, R1 
@GGRIHG+1, RO 
@GRIBD, R3 
@GRIBD+1, R2 
RO 

R1 

R2 

R3 

R0O,>00F8 

RO, R4 

RO, R2 

GRI10 

R6,-8 

GRI11 

R6,8 

R1,R3 

GRI12 

R7,-1 

GRI15 

R7,1 


R1=Y1 
RO=X1 
R3=Y2 
R2=X2 


8*INT(R0/8) 


SAUVEGARDE XI 


UMP 
LI 
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P'EX IT 
9E+NAIHIV IX IT 
9E€+INTARI ‘OH IT 

9£+NA4IHLVO ‘HADHLNOÏ AON GOHHD 
NOV NG AISIVS x 

TTdx & 

 MANAÏ dMTa 

Pen" IT 
9E+N4IHIV'IX IT 
9E+INTALI ‘OH IT 

LE+NAIHIVO ‘ET+NAIHIVO HAOWN 
9E+NAIHIVO ‘SHNILNTAŸ HAON 

add ONI 

T+XHILNA4D9 ‘T+GHO0029 HAON 

T+AHIN4D0 ‘GHOO020 HAON 

GOX4D ANT 


£dadÿ ‘Zaaÿ AO 
DHA4DL40 ‘TIX AON ATOHAI 
TAINAD HISIVS x 
O0 VIVA OHADIH 
000P< WONIXVW NOAVA xx S/OHAD xx 


S/94:19 9914n0$S 


TLdx a 
TIX‘HAVALHO AON  SIVA 

NI'TIAAÿ ‘T4 

AVGÿ ‘OT4H AON 

OTX 244 

GOV4Æ AN 

LISHAO ‘TA 
OTV4 JL: 

SGC'OTH ID 


OT4 
STV4 
LITE 
T4 


ONT 
Or 
1 
&dMS 


T4 ‘GH0029 HAON 


T4 
OT4 


d'TO 
SdMS 


OTH‘T+QH0098 HAOWN 


OT 
dAVALHD ‘TIA 
0 


d'T2 
AON  X44va 
VIVGO HAVALA 


SINNTIV SINIOd  FH1NT F71VINOZIHOH 3110HG 


S/44V4 991n0$S 


TTAx 
OCI49 
DINIOdD 
XASD ‘04 
ÂASD ‘T4 
O4 ‘94 
GTI49 

8 ‘GX 

GX 

G4 ‘04 
G4 ‘C4 
04 ‘ra 
T4 ‘LH 
GZI49 

T ‘SGH 

GX 

GA ‘TA 
GH ‘EX 


& GSCId9 
an’ 
dM'T4 
AON 
AON 
l'4 
L'IL 
19 
Sav 
S 


4 


I9 
Sav 
S 
AON  STI49 
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La ‘04 

62 “04 

La ‘04 

0Z ‘04 

L4’94 

PA ‘£4 

pd ‘C4 

bLaXO 

ELdXd 

£LdaX 

TIdX 

p ‘EU 

S 

‘94 

94 ‘NOAVAD 

0LHADD 

G944D0 
ATO44O 

*GEHAD 

NOXVAD ‘C4 

FA 4 

£a ‘04 

0Z ‘04 

£a ‘04 

62 “04 
NOIIVAYHILI ANIVHOOHd 
HNOd HAHOOHdAY ANIOVH  PNOAXVAO ‘CH 
OPHADÈ 
HAHOOHddY 
ANIOVY AAAINAI4 PNOXVAO ‘ZTAH 
T ‘T4 
CT ‘T4 


AIG 

ET 
Aa 

LT 
AON 
Ada 
AON 
944 
944 
ONTI 
ONT 

IV 
d'T2 
VIS 
AON 

T4 

Ta 


GEZTI 


OCHTI 


ANG AVAL x 


Or 
AON 
Vas 
AIG 

LT 
Ada 

* ie À 


AON 
‘T4 


AON 


AON 


GTA 


OT419 


GTHID aNWl 

HAHOOHd4dY x 
ANIOVYX AUAINAAd PNOXVAD ‘TOSD  AON 
OTH4D Of 
0404 AON 


AINAGHDHUA ANNOS VT AA ATAAVI ANIOVY=NOAVA x 
GGHAD0 Ta 
Lud‘04 ZdaN 
O4‘L4X AON 
L&‘04 AI 
6c'O# IT 
L4‘04 da 
OS "D NLETT 
L4‘94 AON 
c‘'94 VIS 
94 SAV 
9H ‘AHINTOD s 
94 SdMS 
94 ‘GHO0289 HAON 
9Y AT) 

AHAVD NV AVITAQ AG TNOTLO »x 
G4/b4 SNVA LVL'TINSATA pP4d‘Eu XdW 
bA'£# AOWN 
CCE TE 
Eu S4Y 
C4 ‘XHINADD ; 
C4 SdMS 
£4‘T+440099 HAON 
NX #19 

AXAVD NV XVITAG AQ TNDTVO * 
Zddÿ AT 
MINAŸ dMT4 


84/14 SNYA LULTINSHA 
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4IHD04ddav 
ANIOVH ATTIANON 


ZZHD0Hddav 
ANIOVA AAAINIHd 


TLdA9 ‘AHINHDO 
FLdaXO ‘XHINAHDD 
£LdXD ‘XHINADD 

CIdXD ‘XHINADD  AON 
TLdXO ‘XHLNHDD AON G9HAD 
AOVAL NG NOIIVSITVILINI +» 

TTAx a 

T4‘84 AONW 

Où ‘LA v 

Où ‘ra v 

où 

09442 DONC 

84 ‘GX v 
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TTAx & OS) 
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LX 24 
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0S442 
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ba ‘84 

pu 
GA ‘ru 
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G4 ‘T4 
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HNASIAIG £ ‘84 
NONIXVW 


NOIIVAALI ; A MAHNON 0€ ‘LA 


LT 
x 
IT O4) 


C4 SNVA ANIOVA AIIHOS x 
AAHOOHAAY ANIOVAH=IÈS * Z/(1IES/N+1bS)=(N)4OS x 
T4 ‘04 LOWN-AT4NOG NG AAAVO ANIOVA »x 


TTäx 
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( { 
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£Ldzd 

£LdXd 
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PLaXÿ 

£Ldaxô 

£LdaXxd 

TLdaXd 

INIO4 NN: AXAIHAV 
O£4AD 

L'on 
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0P44D0 
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L4 ‘04 

04 ‘LH 


aNC 
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T4 OEXAHD 
HOVHOIAIV » 
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IV 
IV 
24a 
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ONI 
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ONI 
24q 
D4a 
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T2 
s 
Ta 
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Tracé de courbes en 


haute résolution par 


Gérard 
Santraille 








ous allons utiliser 

aujourd'hui l'ensem- 

ble des routines 

graphiques dévelop- 
pées depuis le numéro quatre, 
pour créer et manipuler des 
"splines". Ne cherchez pas 
l'explication de ce terme dans le 
dictionnaire, elle n'y figure 
vraissemblablement pas. Les 
splines sont des familles de 
courbes permettant d'interpoler 
(ou d'extrapoler) par un tracé, un 
ensemble de points. Explicitons 
plus profondément cette défini- 
tion un peu brutale. 


Le problème est le suivant : 
disposant d'un jeu de données 
(résultats expérimentaux, cours 
du dollar, températures jour- 
nalières) on aimerait dessiner à 
l'écran la meilleure représentation 
graphique de cet ensemble de 
données. Cette représentation 
graphique peut avoir toutes sortes 
d'utilités : interpolation entre 
deux valeurs, prévisions (extra- 
polation), etc. 

Selon le traitement que l'on 
applique aux données, le tracé 
obtenu peut changer très 
sensiblement. En fait, il convient 
de définir correctement, pour une 
situation donnée, ce que l'on 
appelle : la meilleure représen- 
tation graphique d'un jeu de 
données. 


Supposons que l'on veuille 
modéliser (c'est-à-dire paramétrer 
mathématiquement) le comporte- 
ment d'un appareil donné. Dans 
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le cas le plus élémentaire (voir 
figure 1) nous disposons d'un 
ensemble de couples de données 
représentant une série de valeurs 
de sortie (Yi) de l'appareil pour 
une série de valeurs d'entrée 
(Xi). 


Fuel” 


Partant de cette famille de 
couples, on désire trouver la 
meilleure équation du type 
Y=f(X) permettant de retracer le 
comportement de l'appareil. Cette 
fonction unique pour l'ensemble 
de tous les points de coordonnées 
(Xi, Yi) ne donnera probablement 
pas l'exacte valeur Yi pour 
chaque Xi. Il ne s'agit que de la 
meilleure approximation. Le tracé 
simultané sur l'écran de cette 
fonction avec tous les points 
expérimentaux montrera que cette 
fonction ne "passe" pas par tous 
les points. Ce n'est d'ailleurs pas 
là le but recherché. L'intérêt de ce 
type de calcul (le traitement 
mathématique que l'on applique 
aux points pour évaluer la 
fonction s'appelle une régression) 
est de pouvoir substituer à un 
ensemble de points une équation 
algébrique beaucoup plus facile à 
manipuler (dérivation, intégra- 


splines cubiques 


Programme de 


démonstration 
100 REM #*#**#X#X4X44X 444% % 
110 REM * # 
120 REM * Copyright * 
REM * * 
REM * 99 # 
REM * Magazine * 
REM * £ * 
REM * Gerard * 
REM * Santraille * 
REM * # 
REM #*##A#XAXAX#4XXXX XX 





260 
270 
280 
290 
300 
310 


320 


330 


340 
350 


CALL CLEAR 

OPTION BASE 1 

DIM A(15,5),B(15,5 
),NP(5),C(4,15),CP 
(2, CC(S),.IB(5],1IE 
(5),XR(6),LI(2,5) 
REM jusqu'a 15 p 
oints par courbe ! 


REM jusqu'a 5 cou 
rbes differentes 
REM A : absci 
sses 

REM B : ordon 
nees 

REM NP : nbre 
de points 

REM C : coeff 


icients du polynom 
e d'interpolation 
REM C peut egal 
ement contenir plu 
sieurs matrices de 
travail 
REM CP coule 
urs des points 
REM CC : coule 
urs des courbes 
REM IB,IE : Condi 
tions limites 
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tion). L'unicité de la formulation 
mathématique pour tous les 
points implique que la courbe 
ainsi obtenue ne passe pas 
exactement pas les points qui ont 
servi à la calculer. 


Il existe de très nombreuses 
méthodes permettant de calculer 
cette fonction après avoir choisi 
sa forme (le modèle). Nous en 
verrons sommairement plusieurs 
un peu plus loin. 


Si, au contraire, on désire 
privilégier la visualisation graphi- 
que d'une courbe calculée à partir 
d'un ensemble de points et non 
pas sa simplicité au niveau de la 
formulation mathématique, il est 
possible d'évaluer non pas une 
équation, mais une famille 
d'équations pour un jeu de 
données. Pour un ensemble de n 
points on peut ainsi définir n-1 
équations. Une équation donnée 
n'est alors valable que pour 
l'intervalle formé par deux points 
voisins. Ce type de régression, 
beaucoup plus lourd à manipuler 
algébriquement, permet d'effec- 
tuer un tracé passant exactement 
par tous les points. C'est une 
régression de ce type que nous 
verrons en détail avec l'analyse 
de la technique des "splines 
cubiques". 


Le but de cet article n'est pas de 
comparer ces deux philosophies; 
il est cependant possible de 
donner quelques règles générales. 
Tous les scientifiques qui tentent 
de modéliser un processus 
physico-chimique utilisent géné- 
ralement, pour des raisons 
élémentaires de mathématique, la 
première formulation (une seule 
équation pour tous les points). Il 
.est beaucoup plus aisé de 
manipuler une équation qu'une 
famille. Bien évidemment, tout 
dépend de l'allure des données 
expérimentales. Si ces données 
révèlent une cassure importante 
dans leur allure, comme le montre 
la figure 2, il est préférable de 
découper ces données en deux 
ensembles et d'avoir deux 
équations relativement simples 
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plutôt qu'une seule (généralement 
complexe) tentant de retracer 
correctement ces valeurs sur la 
totalité du domaine. 


360 
370 


380 
390 


X400 
410 
420 

°430 


440 


«450 


460 
470 


Une régression portant sur une 480 


seule ou sur peu d'équations 
permet par ailleurs de ne pas 
donner trop d'importance à un 
point isolé par rapport aux autres. 
Cette caractéristique est très 
importante lorsqu'il s'agit de 
mesures expérimentales sujettes à 
des erreurs de mesure. 


490 
500 
510 
520 


530 
540 


Il n'existe pas de règle générale 
P gle 8 550 


quant au choix du modèle (de la 
fonction). Pour des modélisations 
se rapportant à des phénomènes 
physiques connus, la théorie dicte 
généralement la forme de la 
fonction dont il faut calculer les 
divers paramètres. Souvent, la 
forme globale du nuage de points 
permet également de se faire une 
idée de la forme que peut avoir le 
modèle. 

Ainsi, les diagrammes suivants 
(figures 3 et 4) suggèrent respec- 
tivement une fonction type 
logarithme et une fonction type 
sinus amorti. 


560 
570 
580 
590 
600 
610 
620 


630 
640 


Figure 3 


REM XR : Matri 
ce de travail 

REM LI Valeu 

rs des derivees au 

x limites 

CALL SCREEN(15) 

REM TEST derniere 
adresse libre mem 
oire basse 

CALL PEEK(8264,S) 
IF S=32 THEN 460 

CALL INIT 

CALL LOAD ("DSK1.PL 

OT4/0BJ") 

REM couleur ecran 
par defaut 


CALL LOAD(-24572,1 
) 

GOSUB 810 

CALL CLEAR 

PRINT "Trace de co 
urbes par Splines" 
PRINT "ou par lis 
sage polynomial" 
PRINT "du troisiem 
e degre au sens" 
PRINT "des moindre 
S carres" 


PRINT "l->Lire un 
jeu de donnees" 

PRINT "2->Afficher 
les points" 

PRINT "3->Trace (s 

plines)" 

PRINT "4->Trace (m 
oindres carres)" 

PRINT "5->Nouvelle 
image" 

PRINT "6->Finir" 

PRINT 

PRINT 

PRINT 

PRINT . 

CALL SOUND (130,140 
0, 0) 


Figure 4 
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En l'absence de tout 
renseignement sur la forme du 
modèle à utiliser, il est habituel 
d'employer des polynômes. 
L'utilisation des polynômes pour 
des régressions est intéressante 
car ils sont aisément évaluables, 
dérivables et intégrables à l'aide 
des seules opérations arithmé- 
tiques de base. Un polynôme de 
degré n peut s'écrire selon : 


P,G@)= x 
d9 + jX + a,X? + 


La régression sur une telle 
fonction consiste, une fois que 
l'on a choisi l'ordre nr du 
polynôme, à determiner la valeur 
des n+1 coefficients 40, a1, 


Il convient d'être très prudent sur 
le choix du degré n du polynome. 
Pour lisser un jeu de m points, il 
peut être tentant d'utiliser un 
polynôme d'ordre m-1 (on 
obtient alors un système de m 
équations à m inconnues que l'on 
résoud très classiquement, ou on 
utilise la technique du "polynôme 
de Lagrange"). Le résultat peut 
être catastrophique et donner une 
courbe de l'allure de la figure 5. 


Figure 5 


Polynômes 
de Lagrange 


Considérons (Pi) un ensemble de 
n points distincts (le jeu de 
données sur lequel va porter la 
régression). Supposons que xi,yi 
soient les coordonnées de chaque 
point. 
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Le polynome 

L,(x)=Pi G-x)/(xi-x;) 

pour j=1,..,n et j#i 

(Pi signifie produit) 

est un polynôme de degré n-1 qui 
prend la valeur O pour tous les xj 
sauf pour xi où il prend la valeur 
Le 


Le polynôme 

P(x) = Z y;L;,pour i = 1,...,n 
est donc bien un polynôme 
d'ordre n-1 (combinaison linéaire 
de polynômes d'ordre n-1) 
passant par tous les points Pi. En 
effet : 

pour tout i on a bien P(x;)=y; 


En fait, cette technique n'est pas 
employée, et l'on ne dépasse que 
très rarement un ordre supérieur à 
quatre. Examinons la méthode 
d'interpolation la plus répandue : 
la méthode des moindre carrés. 


Méthode des 
moindres carrés 


Cette technique qui s'applique à 
n'importe quelle autre forme de 
fonction que le polynôme conduit 
toujours à l'évaluation d'une 
seule équation pour l'ensemble 
des points. 


L'idée est de calculer le polynôme 
d'ordre n le mieux ajusté à 
l'ensemble des points. Il faut 
choisir n très largement inférieur 
au nombre de points (habituel- 
lement n<4). Cet ajustement sera 
considéré optimal lorsque la 
somme des carrés des écarts entre 
les valeurs expérimentales et les 
valeurs calculées par le polynôme 
sera minimale. 


Ainsi, si : 
P,(x)=a, + a,x + a,x° +... + 
a x" 

est le polynôme d'ajustement 
d'ordre n, et m le nombre de 
points sur lesquels va porter la 
régression il convient de mini- 
miser la fonction : 


m n 
> [ > ax) ü y] 2 H 
i=O j=0 


880 
890 
900 
910 
920 
930 


940 
950 
960 
970 


980 
990 


1000 PRINT 


GOTO 680 

CALL SOUND (130,220 
, 0) 

CALL KEY(0,K,S) 

IF S=0 THEN 680 
IF (K<49)+(K>54)TH 
EN 670 

ON K-48 GOSUB 840, 
1940, 2730, 2080, 800 
, 3630 

GOTO 470 

FOR S=1 TO 4 STEP 
9 

CALL SOUND (40, 300* 
S, 0) 

NEXT S 

FOR S=1 TO 50 

NEXT S 

RETURN 

REM Initialisatio 
n image 

PRINT "Effacement 
de l'image":"actue 
116.45" 

CALL LINK("EFFT") 
RETURN 

REM Lecture Fichi 
er de donnees 

CALL CLEAR 


PRINT "Lecture d'u 

n jeu de donnees" 

REM valeurs par d 
efaut 

ECR=1 

CP(1)=9 

CC(1)=15 

IB(1)=0 

IE (1)=0 

PRINT 

INPUT "Nom du fich 
ier : ":FILES 

IF FILES<>"" THEN 
970 

FILES$S="DSKI1.DATA" 

GOTO 1140 

IF SEGS(FILES, 1,3) 
<>"CAT" THEN 1120 
I$=SEGS (FILES, 4,1) 
IP (IS "Iir)A(IS<S 
"2")*(I$<>"3") THEN 
920 

::"Liste de 

s fichiers DSK";I 


OPEN #2:"DSK"&IS& 
".",INPUT ,RELATI 
VE, INTERNAL 

INPUT #2:A$,J,J,J 
PRINT "Nom du dis 
que : ";AS$:: 

INPUT #2:AS$S,T,J,J 
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H s'appelle la fonction objective. 


Pour minimiser cette fonction on 
peut résoudre le système 
d'équations linéaires formé par 
les dérivées partielles de H par 
rapport aux aj ou utiliser 
n'importe quelle autre technique 
classique d'optimisation. Il est 
bien évident que la régression 
sera d'autant plus aisée que 
l'ordre du polynôme sera faible et 
d'autant plus précise que le 
nombre de points sera élevé. 

Il est par ailleurs possible de 
pondérer la somme des carrés par 
des coefficients dont les valeurs 
s'inspirent de deux considéra- 
tions : 

* régularité de l'espacement des 

points d'échantillonage; 
+ confiance en la précision du 
point. 


La fonction objective devient 
alors : 


m n | 2 

Z wi[lZ axj-y;l 

i=0 j=0 
On peut ainsi donner plus de 
"poids" a un point si on est sur de 
sa valeur ou s'il se trouve trop 
isolé afin de rectifier l'allure 
générale de la courbe. 


La technique des moindres carrés 
dont nous venons de voir le 
principe est très usitée dès qu'il 
s'agit de calculer les paramètres 
d'un modèle dont la forme est 
bien connue. Pour une visua- 
lisation graphique d'un jeu de 
données dont on ne connait pas a 
priori l'expression du modèle, 
cette méthode peut conduire à des 
résultats très différents selon le 
choix du modèle ou plus 
simplement selon l'ordre du 
polynôme. Le programme Basic 
de démonstration permet de 
superposer à un jeu de données 
un polynôme de degré 3 dont les 
coefficients ont été calculés à 
l'aide de cette technique. 


Nous allons voir maintenant 
plusieurs techniques donnant une 
représentation graphique passant 


par tous les points. Comme nous 
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l'avons déjà vu, cette paramé- 
trisation implique la définition de 
plusieurs équations différentes. 
Comme il est possible de faire 
passer un polynôme de degré m-1 
par un ensemble de m points, on 
peut envisager de découper cet 
ensemble de m points en gq 
sous-ensembles de p points pour 
chacun desquels on calculera le 
polynôme de degré p-1 passant 
exactement par tous les p points 
de ce sous-ensemble. 


L'expression la plus élémentaire 
de cette technique consiste à 
joindre tous les points par des 
tronçons de droites. Il s'agit bien 
d'un découpage en série de deux 
points pour chacune desquelles 
on fait une regression par un 
polynôme d'ordre 1. 


On dispose ainsi d'un ensemble 
d'équations linéaires permettant, 
comme le montre la figure 6, de 
retracer assez grossièrement 
l'allure de la courbe. 


Pour tenter d'affiner notre 
réprésentation on peut décider 
non plus d'interpoler deux points 
voisins par un tronçon de droite, 
mais trois points voisins par un 
polynôme de degré 2 ou encore 
quatre points voisins par un 
polynome de degré 3. Ce type de 
représentation donne une certaine 
“rotondité" à la courbe mais 
comporte généralement d'assez 
fortes “cassures" aux points de 
jonction de deux équations 
algébriques différentes (voir 
figure 7). 


Interpolation du 
troisième ordre 
pour les points 
médians. 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


1180 
1190 


1200 
1210 


1220 


1230 
1240 
1250 
1260 


1270 


1280 
1290 
1300 
1310 


1320 


\ 1330 


IF AS<>"" THEN 10 
90 

CLOSE #2 

PRINT ?:: 

GOTO 850 

IF ABS(T)-2 THEN 
1040 

PRINT A$, 

GOTO 1040 

IF POS(FILES,".", 
1)THEN 1140 
FILES="DSK1."&FIL 
E$ 

IC=1 

P=0 

OPEN #1:FILES, INP 
UT 

IF EOF(1)THEN 179 
0 

INPUT #1:DATAS 

IF ASC(DATA$)=59 
THEN 1170 
TOTO$=SEGS (DATAS, 
1,3) 

IF TOTOS<>"IBE" T 
HEN 1260 
IB(IC)=VAL(SEGS (D 
ATAS, POS (DATAS, "= 
1) #1; 10)) 


IF IB(IC)=0 THEN 
1170 

INPUT #1:LI(1,1IC) 
GOTO 1170 

IF TOTO$<>"IEN" T 
HEN 1310 

IE (IC)=VAL (SEGS (D 
ATA$, POS (DATAS$, "= 
",1)+1,10)) 

IF IE(IC)=0 THEN 
1170 

INPUT #1:LI(2,1IC) 
GOTO 1170 

IF TOTO$<>"ECR" T 
HEN 1350 
ECR=VAL (SEG$ (DATA 
$, POS (DATAS$, "=", 1 
)+1,10)) 

CALL LOAD(-24572, 
ECR) 


Fiue7 
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Pour éviter que ces discontinuités 
(les dérivées premières à droite et 
à gauche de chaque point de 
jonction peuvent très différentes) 
ne soient trop brutales, on peut 
décider de calculer le polynôme 
de degré 3 passant par quatre 
points voisins et de ne garder 
cette équation que pour les deux 
points du milieu. On décale alors 
d'un point et on renouvelle 
l'opération (voir figure 8). 


Figure 8 


Pour un jeu de m points nous 
avons donc besoin de caluler non 
pas approximativement "/3 
équations mais m-1. En effet 
chaque intervalle de deux points 
se trouve décrit par une équation 
différente. Cette technique 
beaucoup plus longue en temps 
calcul que la précédente (la même 
équation pour les quatre points 
voisins) donne un aspect 
beaucoup plus homogène à la 
courbe. Le tracé ainsi calculé peut 
néanmoins toujours comporter 
des cassures. 


Mathématiquement cela se traduit 
par le fait qu'aucune contrainte 
sur les dérivées premières à droite 
et à gauche pour chaque point n'a 
été formulée. Le calcul se fait 
simplement en calculant à chaque 
fois le polynôme d'ordre 3 
passant par quatre points 
(système linéaire de 4 équations à 
4 inconnues). Tous ces systèmes 
4,4 sont indépendants et peuvent 
être résolus dans n'importe quel 
ordre. 


Analysons maintenant la base 
d'une technique formulant 
certaines conditions sur les 
dérivées en chaque point. 
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Interpolation par 
‘splines’ cubiques 


Sans entrer dans le détail sur la 
théorie des ‘splines’, voyons 
quelle est le fil directeur de cette 
technique. Le qualificatif cubique 
indique ici que les polynômes 
d'interpolation seront de degré 3 
(il existe des ‘splines’ de tout 
ordre). 


L'idée est toujours de calculer un 
polynôme (de degré 3 donc) pour 
interpoler deux points mais non 
plus en le définissant comme la 
fonction passant par quatre points 
voisins (il faut 4 équations pour 
calculer les 4 paramètres du 
polynôme) mais comme le 
polynôme passant par deux 
points (2 équations) et dont les 
dérivées première et seconde à 
gauche du deuxième point sont 
égales aux dérivées première et 
seconde à droite du premier point 
du polynôme suivant (celui qui 
sera calculé sur l'intervalle 
suivant). Relisez bien cette 
phrase, elle est fondamentale 
pour bien comprendre la 
technique des splines. Ceci donne 
bien 2 nouvelles équations, le 
système est donc bien soluble. 
On voit bien qu'il est impossible 
de calculer indépendamment 
chaque polynôme puisque chacun 
d'entre eux dépend de son 
suivant (et donc de son 
précédent). La résolution se fera 
donc globalement, sur l'ensemble 
de tous les points. 


Géométriquement, cela se traduit 
par les propriétés suivantes : 


* pas de cassures en un point 
(égalité des dérivées premières 
à droite et à gauche); 

+ pas d'inflexion sur un point 
(égalité des dérivées secondes 
à droite et à gauche). 


Rappelons qu'un point 
d'inflexion correspond à un 
changement de signe du rayon de 
courbure de la fonction (voir 


figure 9). 





GOTO 1170 

IF TOTOS<>"NOU" T 

HEN 1510 

IF DP+(DC=0) THEN 
1380 

CP(IC)=CC(IC) 

IF (DP=0)+DC THEN 
1400 

CC(IC)=CP (IC) 

NP (IC)=P 

IC=IC+1 

P=0 

REM valeurs par 
defaut 

CP(IC)=9 

CC(IC)=15 

IB(IC)=0 

IE (IC)=0 

DP=0 

DC=0 

GOTO 1170 

IF TOTOS<S"POI" T 

HEN 1550 

DP=] 

CP (IC)=VAL(SEGS (D 

ATAS$, POS (DATAS, "= 
",1)+1,10)) 

GOTO 1170 

IF TOTOS<>"COU" T 

HEN 1590 

DC=1 

CC(IC)=VAL (SEGS (D 

ATAS$, POS (DATAS, "= 
",1)+1,10)) 

GOTO 1170 

V=POS (DATAS," ",1 

) 

P=P+1 

A(P,IC)=VAL(SEGS ( 

DATAS$, 1,V-1)) 

B(P,IC)=VAL(SEGS ( 

DATAS, V+1,10)) 

U=A (P, IC) 


V=B (P, IC) 
IFP*IC-1 THEN 17 
00 

XMAX=U 

YMAX=V 

XMIN=U 


- sourbure 
vers le haut 


courbure vers le bas 
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Les tracés ainsi obtenus, au prix 
de quelques efforts supplémen- 
taires (entièrement assumés par 
notre TI), sont très réguliers et ne 
comportent aucune cassure. Pour 
des ensembles de points très 
"tourmentés", on obtient des 
tracés très "variants" mais 
toujours sans aucune discon- 
tinuité (voir figure 10). 


_ Figure 10 


Pour vous en convaincre nous 
proposons ici un petit programme 
de démonstration permettant de 
visualiser un jeu de données, de 
faire une régression cubique par 
la méthode des moindres carrés et 
de faire un tracé au moyen de 
splines cubiques. 


Utilisation du 
programme de 
démonstration 


Ce programme permet donc de 
dessiner à l'écran soit une courbe 
moyenne (polynôme du troisième 
degré) ajustée à un jeu de 
données par la méthode des 
moindres carrés, soit une courbe 
exacte passant par tous les points 
et utilisant la technique des 
splines cubiques. 


Le programme lit les données 
dans un fichier DIS/VAR 80 qui 
peut être créé par l'éditeur/ 
assembleur ou par un programme 
basic. Le programme peut traiter 
simultanément plusieurs jeux de 
données. 
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Structure du 
fichier d'entrée 


Le fichier contient les différents : 


jeux de données à traiter et 
optionnellement divers mots-clés 
ayant chacun un rôle particulier. 
Chaque ligne de données doit 
comporter deux valeurs (xi et yi) 
séparées par un espace. Les 
mots-clés sont les suivants : 


; signifie qu'il s'agit d'une ligne 
de commentaires qui doit donc 
être ignorée; 

ECRAN= suivi d'un code (0 à 
15) indique la couleur de 
l'écran. 


Chaque jeu de données doit être 
séparé du suivant (si suivant il y 


a) par : 
NOUVELLE COURBE 


Enfin, chaque jeu de données 
peut optionnellemnt contenir : . 
POINTS= suivi du code (0 à 
15) pour la couleur des points; 
COURBE suivi du code (0 à 
15) pour la couleur du tracé. 


Par défaut, le programme prend 1 
comme couleur d'écran (noir), 9 
pour celle des points (rouge) et 
15 pour celle des courbes (blanc). 
Si vous définissez la couleur des 
points et pas celle de la courbe ou 
réciproquement, le programme 
prendra cette couleur pour les 
deux. 


On peut ainsi superposer sur une 


même image graphique plusieurs 
courbes de couleurs différentes 
(avec les restrictions propres au 
mode bit-map du TI à savoir une 
seule couleur "on" et une seule 
couleur "off" pour chaque rangée 
de 8 points) 


De plus, pour le tracé à l'aide de 
splines cubiques, le fichier peut 
contenir 

IBEG= 0, 1 ou 2 
et/ou 

IEND= 0, 1 ou 2 
qui déterminent les conditions 
aux limites du tracé. Si ces 
informations ne figurent pas dans 
le fichier, leurs valeurs par défaut 
sont 0. 


YMIN=V 

IF U>=XMIN THEN 1 
720 

XMIN=U 

IF U<=XMAX THEN 1 
740 

XMAX=U 

IF V>=YMIN THEN 1 
760 

YMIN=V 

IF V<=YMAX THEN 1 
780 

YMAX=V 

GOTO 1170 

NP(IC)=P 

IF DP+(DC=0) THEN 
1820 

CP(IC)=CC(IC) 

IF (DC=0)+DC THEN 
1840 

CC(IC)=CP (IC) 

CLOSE #1 

DEF FA(X)=245*(X- 

XMIN) / (XMAX-XMIN) 
+5 

DEF FO(X)=181-171 
* (X-YMAX) / (YMIN-Y 

MAX) 

FOR J=1 TO IC 

FOR I=1 TO NP(J) 

A(I,J)=FA(A(I,J)) 

B(I,J)=FO(B(I,J)) 

NEXT I 

NEXT J 

RETURN 

REM afficher les 
points 

CALL CLEAR 

PRINT "Afficher 1 

es points" 

FOR I=1 TO IC 

CALL LOAD(-24573, 

CP(I)) 

FOR J=1 TO NP(I) 

CALL LOAD(-24576, 

A(J,I),B(J,I)) 

CALL LINK("POINT" 

) ‘ 

NEXT J 

NEXT I 

GOSUB 730 

CALL LINK ("IMAGE" 

) 

RETURN 

REM Trace par mo 

indres carres 

CALL CLEAR 

PRINT "Trace par 

regression polyno 

-miale d'ordre 3" 

::"Resolution et 
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IEND a le même rôle que IBEG. 
Le premier fixe la condition limite 
du dernier point, le second celle 
du premier point du jeu de 
données. 


IBEG=0 (respectivement IEND= 
0) signifie que le polynôme 
d'interpolation pour les points 
2 et 3 (respectivement n-2 et 
n-1) doit également être utilisé 
pour le premier point 

‘(respectivement pour le 
dernier). 

IBEG=1 (respectivement IEND= 
1) signifie que vous fournissez 
sur la ligne suivante du fichier 
la valeur de la dérivée première 
de la courbe au premier point 
(respectivement au dernier). 
L'enregistrement suivant du 
fichier doit donc contenir cette 
grandeur. 

IBEG=2 (respectivement IEND= 
2) signifie que vous fournissez 
sur la ligne suivante du fichier 
la valeur de la dérivée seconde 
de la courbe au premier point 
(respectivement au dernier). 
L'enregistrement suivant du 
fichier doit donc contenir cette 
grandeur. 


Le fichier de démonstration 
contient deux fois le même jeu de 
données avec des conditions aux 
limites différentes (cas des 
"splines"). Les "splines" ainsi 
obtenues diffèrent très 
sensiblement (voir figure 11) 
selon ces conditions. Cet exemple 
montre que la connaissance de 
ces valeurs peut influer fortement 
sur l'aspect de la courbe. 


. tangentes 


RÉ 
7. horizontales 


Figure 11 


En l'absence de tout 
renseignement fiable sur l'allure 
de la courbe, il est préférable de 
prendre 0 pour IBEG et IEND, 
donc de ne rien mettre (valeurs 
par défaut). 
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Caractéristiques 
cénérales du 
programme 


Le lancement du programme fait 
apparaitre un menu permettant : 


1) de lire un jeu de données 
Cette option vous demande le 
nom du fichier d'entrée. Vous 
pouvez simplement taper 
ENTER, le programme 
prendra alors le fichier 
DSK1.DATA. Si vous tapez 
juste un nom de fichier le 
programme rajoutera automati- 
quement "DSK1.". Vous avez 
de plus la possibilité de faire 
défiler à l'écran tous les 
fichiers de type DIS/VAR 80 
du disque i (1,2 ou 3) en 
tapant CATi. 


2) d'afficher les points 
Le programme affiche alors 
simplement les différents jeux 
de données dans les couleurs 
choisies. 


3) d'effectuer un tracé à 


base de splines cubiques 

Le programme construit toutes 
les "splines" nécessaires à 
chaque tracé suivant les 
conditions limites spécifiées 
dans le fichier d'entrée, puis 
les affiche en même temps que 
les données du fichier. 


4) d'effectuer un tracé par 
la méthode des moindres 


carrés 

Une régression d'ordre 3 est 
effectuée sur chaque famille de 
points. Sont affichés sur 
l'écran tous les jeux de points 
et toutes les courbes calculées. 
On peut ainsi apprécier la 
finesse de l'interpolation. 


5) d'effacer l'image 

graphique 
L'image graphique n'est pas 
effacée à chaque nouveau 
tracé, vous permettant ainsi de 
superposer un tracé obtenu par 
les "splines” à un tracé de la 
même famille de points obtenu 
par la méthode des moindres 


2100 
2110 
2120 
2130 
2140 
2150 
2160 


X 2170 


2180 
2190 
2200 
2210 


2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


2310 
2320 
2330 
2340 
2350 
2360 


2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 


2470 
2480 
2490 


2500 
2510 


2520 
2530 
2540 
2550 


2560 


2570 
2580 
2590 
2600 


trace en cours" 

FOR IS=1 TO IC 

FOR I=1 TO 4 

FOR J=1 TO 7 

C(I,J)=0 

NEXT J 

NEXT I 

N=NP (IS) 

CALL LOAD(-24573, 
CC(IS)) 

FOR K=1 TO 6 

XR(K)=0 

FOR I=1 TO N 

XR(K)=XR(K)+A(I,I 
SI OK 

NEXT I 

NEXT K 

YC=0 

FOR I=1 TO N 
YC=YC+B(I,IS) 

NEXT I ' 

FOR K=1 TO 3 

FOR I=1 TO N 

C(K,7)=C(K,7)+B(I 
SES) AT; IS) K 

NEXT I 

NEXT K 

FOR I=1 TO 4 

FOR J=1 TO 4 
IJ=1I+J-2 

IF (I=1)*(J=1)THE 
N 2390 

C(I,J)=XR(IJ) 

GOTO 2400 

C(1,1)=N 

NEXT J 

NEXT I 

C(1,6)=YC 

FOR I=2 TO 4 

C(I,6)=C(I-1,7) 

NEXT I 

REM calculs des 
coeffs 

FOR K=1 TO 3 

FOR I=K+1 TO 4 

C(I,6)=C(I,6)-C(I 
»K)/C(K,K)*C(K, 6) 

FOR J=K+1 TO 4 

C(I,J)=C(I,J)-C(I 
,K)/C(K,K) *C(K, J) 

NEXT J 

NEXT I 

NEXT K 

C(4,5)=C(4,6)/C(4 
4) 

FOR I=3 TO 1 STEP 
—1 

S=0 

FOR K=I+1 TO 4 

S=S+C(I,K)*C(K,5) 

NEXT K 
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carrés. Pour effacer la page 
graphique avant un nouveau 
tracé, utilisez donc cette 
option. 


Remarques : 


Tous les jeux de données doivent 
être rentrés abscisses 
croissantes. 

Une fois l'image graphique 
affichée, vous pouvez toujours 
utiliser les différents utilitaires 
décrits dans les numéros 
précédents à savoir : 


CTRL-N pour une "hardcopy" 
normale; 


CTRL-I pour une "hardcopy" 
en inversé (off = on et 
on = off); 


CTRL-S pour sauvegarder 
l'image graphique sur disque; 
CTRL-C pour charger une 

image graphique à partir d'un 
disque; 
BACK pour revenir au Basic. 


Ce programme ne décrit que le 
fonctionnement des "splines" et 
de la méthode des moindres 
carrés. Bien qu'il soit proche de 
saturer les 16 petits K:-octets de 
notre TI (la dimension des 
tableaux permet de traiter jusqu'à 
5 courbes, chacune définie par 15 
points), vous pouvez toujours 
envisager de l'étendre en 
rajoutant par exemple : 

introduction de texte (routine 

"LETTRE") sur la page 

graphique; 

introduction d'axes ("AXES") 

et des principales valeurs 

etc. 


Pour gagner un peu de mémoire, 

vous pouvez toujours : 

* supprimer les remarques; 

+ diminuer la taille des tableaux; 

+ faire CALL FILES(1) avant le 
chargement. 


Bon Spleen … 


99 
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C(I,5)=(C(I, 6) -S) 
fC(I;) 

NEXT I 

REM DEFINITION P 
OLYNOME 

DEF R(X)=C(1,5)+X 
*(C(2,5)+X*(C(3,5 
)+X*C(4,5))) 

FOR I=A(1,1IS)TO À 
(N, IS) 

CALL LOAD(-24568, 
I,R(I),I+1,R(It+1) 
) 

CALL LINK("LIGNE" 
) 

NEXT I 

NEXT IS 

GOSUB 1950 

RETURN 

REM Trace par s 
plines cubiques 
CALL CLEAR 

PRINT "Trace par 
Splines cubiques" 
:: "Resolution et 
trace en cours" 
REM Resolution 
FOR IS=1 TO IC 
N=NP (IS) 

CALL LOAD(-24573, 
CC(IS)) 

REM remplissage 
matrice 

FOR I=1 TO N 
C(1,I)=B(I,IS) 
NEXT I 

REM conditions 
limites 
IBEG=IB(IS) 
IEND=IE (IS) 
C(2,1)=LI(1,1IS) 
C(2,N)=LI(2,IS) 
REM resolution 
L=N-1 

FOR M=2 TO N 
C(3,M)=A(M, IS)-A( 
M-1,1IS) 

IF C(3,M) THEN 294 
0 

C(3,M)=.001 
C(4,M)=(C(1,M)-C( 
1,M-1))/C(3,M) 
NEXT M 

ON IBEG+1 GOTO 29 
70, 3060, 3090 

IF N>2 THEN 3020 
C(4,1)=1 

C(3,1)=1 
C(2,1)=2*C(4,2) 
GOTO 3330 
C(4,1)=C(3,3) 


C(3,1)=C(3,2)+C{(3 
3) 
C(2,1)=((C(3,2)+2 
*C(3, 1)) *C(4:2) *C 
(3:3)+C(3,;2)"2*C{ 
#:.327/0C(3,1) 
GOTO 3130 
C(4,1)=1 
C(3,1)=0 
GOTO 3120 
C(4,1)=2 
C(3,1)=1 
C(2,1)=3*C(4,2)-C 
(3,2)/72*C(2, 1) 
IF N=2 THEN 3330 
FOR M=2 TO L 
G=-C(3,M+1)/C(4,M 
-1) 
C(2,M)=G*C(2,M-1) 
+3* (C(3,M) *C(4,M+ 
1)+C(3,M+1)*C(4,M 
)) 
C(4,M)=G*C(3,M-1) 
+2*(C(3,M)+C(3,M+ 
1)) 
NEXT M 
REM 
ON IBEG+1 GOTO 32 
00, 3400, 3290 
IF (N=3)*(IBEG=0) 
THEN 3260 
G=C(3,N-1)+C(3,N) 
C(2,N)=((C(3,N) +2 
*G) *C(4,N) *C(3,N- 
JL) FCUSAN) 28 CUT, 
N=1}-C(1,N°2) 1/C( 
3,N-1))/G 
G=-G/C(4,N-1) 
C(4,N)=C(3,N-1) 
GOTO 3380 
C(2,N)=2*C(4,N) 
C(4,N)=1 
GOTO 3370 
C(2,N)=3*C(4,N)+C 
(3,N)/2*C(2,N) 
C(4,N)=2 
GOTO 3370 
REM à 
ON IEND+1 GOTO 33 
40,3400, 3290 
IF IBEG>0 THEN 32 
60 
C(2,N)=C(4,N) 
GOTO 3400 
G=-1/C(4,N-1) 
C(4,N)=G*C(3,N-1) 
+C(4,N) 
C(2,N)=(G*C(2,N-1 
)+C(2,N))/C(4,N) 
FOR J=L TO 1 STEP 
—1 
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C(2,J)=(C(2,9J)-C{ 
3, J)*C(2,:7+1))7C( 
4,J) 
NEXT J 
FOR I=2 TO N 
DTAU=C (3,1) 
DF1=(C(1,I1)-C(1,I 
-1))/DTAU 
DF3=C(2,1-1)+C(2, 
I)-2*DF1 
C(3,1-1)=2*(DF1-C 
(2,1-1)-DF3)/DTAU 
C(4,I-1)=(DF3/DTA 
U) *(6/DTAU) 


NEXT I 
REM fin de resol 
ution 
FOR I=1 TO N-1 
REM construction 
polynome pour ch 
aque intervalle 
DEF PN(X)=C(1,1I)+ 
(X-A(I,IS))*(C(2, 
I)+(X-A(I,IS))*(C 
(3,I)+(X-A(I, IS) ) 
*C(4,1)/3)/2) 
FOR J=A(I,IS)+1 T 
O A(I+1,1IS) 


CALL LOAD(-24568, 
J-1,PN(J-1),J,PN( 
J)) 

CALL LINK("LIGNE" 
) 

NEXT J 

NEXT I 

NEXT IS 

GOSUB 1970 

RETURN 

REM Sortie du pr 
ogramme 

CALL CLEAR 

END 


meme jeu de donnees 
COURBE=11 

courbe jaune 

POINTS=9 

maintien de la couleur rouge 


Ecran noir par defaut ;__Pour les points 
courbe blanche par defaut IBEG=1 

‘avec points rouges , 
’ ‘derivee premiere nulle c-a-d 
tangente horizontale pour le 
premier point 

IEND=1 

10 10 . 

20 5 idem pour le dernier point 
30 5 10 10 


40 10 20 5 
50 25 30 5 


NOUVELLE COURBE 40 10 
90 25 


FICHIER DE DEMONSTRATION 


le meme jeu de donnees est utilise 
‘avec des conditions limites differentes 


pas de valeur pour IBEG et IEND 
donc 0 pour les deux 
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Expérience 


pédagogique : 
orthographe & 
informatique 


Et si, sur sa copie, on 
soulignait les fautes 
de l'élève avant qu'il 
ne les commette…. 


S'autocorriger… 


L'idée n'est certe pas très 
réalisable... Nous savons 
pourtant que, si, de notre doigt, 
nous soulignons une faute, la 
plupart des élèves sont capables 
se s'autocorriger ! Dans cet 
esprit, et avec l'aide de 
l'informatique, nous avons tenté 
une expérience qui devait 
permettre à chaque élève de 
minimiser sa disorthographie. 
Cette méthode n'a rien de 
miraculeux, elle veut juste 
permettre à l'élève de focaliser 
son attention sur les points précis 
qui sont la source de ses 
mauvaises notes en orthographe 
et cela, bien sûr, avant notre 
propre correction. 





Niveau et 
conditions 


Cette expérience a été menée en 
classe de Sème et 4ème, sur 5 
dictées empruntées au manuel 
scolaire en cours dans l'établis- 
sement, ou dans diverses 
"méthodes d'orthographe", toutes 
plus prometteuses" les unes que 
les autres. 


Des fiches 
d'observations 
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Nous avons pensé qu'en 
fournissant avant la dictée, à 
chaque élève, une fiche 
signalétique qui reportait les 
observations faites sur sa copie 
précédente, et qui résumait ses 
mauvaises habitudes orthogra- 
phiques, nous avions là un 
moyen efficace de le prévenir 
contre ses fautes et, par 
conséquent, de l'aider à se 
concentrer sur ses déficiences. 
Nous ne proposons donc pas une 
méthode directe de l'appren- 
tissage de l'orthographe, mais 
nous proposons de donner aux 
élèves l'habitude de relire leur 
travail, l'envie d'exercer leur 
perspicacité à découvrir leurs 
"fautes". Pour cela nous leur 
fournissons un guide adapté à 
leur profil, afin qu'il puissent 
facilement prendre leur 
orthographe en charge, et que par 
réflexe, ils sachent où porter leur 
regard lors de la relecture de leur 
copie. 


Nom prénom 

Accord 

Accord 

Conjugaison 
Confusion de sonorités 
Vocabulaire 


Remarques diverses 
Meilleure note obtenue 
Dernière note obtenue 
Progrès 


ei © © @ JE Un BR CD D a 


Di ei 








Ponctuation, accentuation 


Rubriques retenues 





Philippe 
Misandeau 


En tout premier lieu, il fallait 
établir une échelle commune, 
représentative des erreurs les plus 
fréquemment rencontrées. Nous 
avons retenu onze rubriques pour 
réaliser ces fiches-guide indivi- 
duelles. Voir en encadré. 

Sur cette fiche, nous rédigeons, à 
la main, nos observations 
relatives à la correction de la 
dictée du jour. Avant l'épreuve 
d'orthographe suivante (une ou 
deux semainbes après par 
exemple), nous distribuons aux 
élèves leur nouvelle fiche 
personnelle, imprimée, propre- 
ment “sortie” du fichier 
informatique, et remise à jour 
après chaque dictée. C'est cette 
nouvelle fiche augmentée des 
derniers renseignements sur 
l'orthographe de l'enfant, de ses 
éventuels progrès qui, lors de 
l'épreuve, devra lui permettre de 
polariser son attention sur ses 
propres défaillances puis, dans la 
semaine, de revoir tel ou tel point 
de sa grammaire : nous devons 
pouvoir compter sur sa 
participation active... Voir les 
exemples de fiches à coller sur la 
copie, avant dictée. 


De l'avantage de 
l'ordinateur 


L'informatique n'avait rien ici 
d'indispensable : nous pouvions 










de l'élève # 
sujet-verbe, is di <a 
nom-adjectif.… L 
pers, tps, modes à revoir. 
ai-er Se-ze Ou-au….. 
nombre de fautes 


lisibilité.… 


o/n depuis la dernière dictée 
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FICHE 13 


Jackson Jean 
nom/adjectif 
verbe/sujet 

passé simple 


Accord 
Accord 
Conjug. 
Sonorité 
Vocabul. 
Ponctuat. 
Divers bien relire 
Note Max. 10,00 
Dern. note 10,00 
Progrès beaucoup 


Exemples de 


très bien tenir à jour, et à la main, 
les fiches des élèves. Mais, le 
système informatique représente 
quelques avantages certains. Cela 
demande bien sur une mise en 
œuvre assez complexe : un 
ordinateur avec lecteur de 
disquettes, une imprimante, un 
logiciel qui permet la 
mémorisation rapide des 
informations spécifiques aux 
rubriques concernées. Il faut 
ajouter au temps de la correction 
traditionnelle le temps de saisie 
des données ! Mais, si le 
programme est bien pensé*, cela 
est encore assez rapide, de toutes 
les façons, plus rapide que le 
même travail effectué "à la main”. 
En bénéfice, il faut retenir qu'à 
l'objet informatique qui n'a pas 


Elèves 
en progrès 


Dictée n° 


Où À Co ND 
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FICHE 14 


Janvier Noël 
nom/adjectif 
verbe/sujet 


Accord 
Accord 
Conjug. 
Sonorité 
Vocabul. 
Ponctuat. 
Divers écriture 
Note Max. 8,00 
Dern. note 2,00 
Progrès en baisse 


fiches à coller 


manqué d'intéresser les élèves, 
donc de les motiver dans leurs 
efforts (nous y reviendrons), 
s'est ajouté la grande lisibilité des 
fiches distribuées, plus efficaces 
sous cette forme que nos 
appréciations trop souvent écrites 
à la hâte (et si vite oubliées entre 
deux épreuves !). En cas de 
disorthographie profonde, au lieu 
de surcharger la fiche de l'élève, 
nous avons préféré l'aider en le 
guidant sur plusieurs séances 
avec la même rubrique (accord 
verbe sujet par exemple), afin de 
ne pas disperser son attention sur 
tous les écueils qu'il lui faut 
vaincre. 


Evaluation 
Tout d'abord soulignons l'intérêt 


Erreurs sur 
accords du 
part. passé 


Moyenne 
de la classe 


20/29 
17/29 
10/29 


4,9/20 
4,8/20 
6,8/20 


23/30 
23/30 
10/30 


5,1/20 
6,2/20 
9,3/20 
11/30 7,8/20 
00/30 8,1/20 


Quelques chiffres. 


porté à la méthode par l'ensemble 
de la classe. Tous se sont 
volontiers pliés à la distribution 
des fiches avant la dictée, puis au 
collage de cette fiche sur leur 
copie (il n'y a eu aucun 
manquement sur toute la durée de 
l'expérience). Cependant, il n'a 
pas été très facile dévaluer en 
toute objectivité l'ensemble des 
résultat. Trois paramètres peuvent 
radicalement modifier notre 
évaluation. Cette approche a 
manifestement intéressé les élèves 
parce qu'il y avait de l'ordinateur 
"dans l'air” (phénomène de mode 
non négligeable). Tous savaient 
encore que cela déboucherait sur 
un compte-rendu d'expérience : 
pour quelle part ces deux points 
entrèrent dans léur désir de mieux 
faire ? Cela était difficle à 
comptabiliser ! Enfin, le troisième 
paramètre est lié à la durée de 
l'expérience : celle-ci ne s'est 
déroulée que sur cinq dictées, 
période de plus mise à profit pour 
remodeler tel ou tel point de 
l'expérimentation en cours. Mais, 
notons aussi que des élèves ont 
regretté l'absence de ces fiches 
lors de la toute dernière épreuve, 
verbalisant que ce guide leur 
manquait, et qu'ils désiraient 
vraiment voir se prolonger la 
méthode pour l'an prochain. Voir 
les quelques chiffres évocateurs 
en encadré. 

* Pour cette expérience, un 
module "Gestion de Fichiers”, 
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adapté au TI-99/4A qui était à 
notre disposition, nous a évité le 
temps consacré à la conception du 
programme. 


Exemple de 
programme 
Pédagogique 


s 
Thème 
Révision ou acquisition globale 
. de la nature des mots qui 
composent la phrase, entraine- 
ment à la syntaxe sur les bases 
d'un jeu grammatical. 


Niveau 

Pour les élèves en C.M. et, en 
classe de soutien 6 ème et 5 ème. 
Ce travail nécessite, au préalable, 
une connaissance au moins 
approximative des divers 
constituants de la phrase : noms, 
adjectifs, adverbes, verbes, 
pronoms, articles, déterminant. 
Cependant, les enseignants 
peuvent modifier la difficulté de 
l'exercice, en introduisant, dans 
le programme et en DATA, des 
phrases plus ou moins 
complexes, voire mieux adaptées 
au niveau de leur classe (cf 
Modifications). 


Objectifs 

lé e 
pédagogiques 
A la suite de l'utilisation de ce 
logiciel, l'enfant devra pouvoir 
reconnaitre la nature de chacun 
des mots d'une proposition, et 
savoir reconstruire une phrase à 
partir de ses éléments constitutifs, 
proposés en ordre logique ou 
illogique à sa sagacité. Pour 
maintenir son attention et sa 
réflexion en éveil, nous lui 
proposons un match où gagnera 
celui qui possède au mieux sa 
grammaire (cf évaluation des 
points). 


Fonctionnement et 
commentaires 
L'adulte a une part active dans le 


38 


fonctionnement de ce programme 
qui se veut bref et facile à "entrer" 
dans la machine : il devra parfois 
expliquer une règle de 
grammaire, approfondir tel ou tel 
aspect de la syntaxe française, 
soutenir les élèves dans leur 
effort de réflexion... et faire 
"tourner" le programme : 


A] L'ordinateur demande tout 
d'abord combien de groupes ou 
d'élèves vont “jouer”, puis le 
nom des participants. (Expérience 
faite, il est souhaitable de n'avoir 
à contrôler que trois ou quatre 
productions, afin de ne pas 
démobiliser l'attention des 
enfants). 


B] Sur l'écran (vide de toute 
autre information), s'affichent 
une à une, pendant un temps 
modulable (boucle K en ligne 75 
et 80), les natures des différents 
paradigmes qui devront constituer 
la phrase à créer. 


C] L'enfant doit noter ces 
renseignements puis, il cherchera 
à réaliser sur sa feuille une phrase 
à l'aide de toutes les natures de 
mots que l'ordinateur lui impose. 


D] II peut, en cas de besoin, 
venir consulter des fichiers afin 
d'obtenir des renseignements 
complémentaires à sa reflexion. 
Voici le menu affiché : 

1 Classe des adjectifs (qualifi- 
catifs ou non qualificatifs).… 
Ensemble des déterminants 
(articles ou adjectifs) 

Pronoms 

Adverbes 

Conjonctions et prépositions 
Solution du problème et entrée 
des points (fin du temps de 
réflexion) 

7 Fin de travail et affichage du 
score final. 


E] Au bout du temps de 
réflexion déterminé (en fonction 
de la difficulté ou par exemple, 
après que trois élèves aient trouvé 
une solution), l'adulte commente 
et évalue le résultat écrit par 
chacun puis, en appuyant sur la 
touche 6, il affiche à l'écran la 
phrase type, solution au problème 
posé : un dernier commentaire 
grammatical qui justifie 
rapidement la solution proposée 
sera le bienvenu. 


F] La machine est maintenant 
prête pour une nouvelle expé- 
rience (12 ici). 


Guide pour une 


évaluation 

(A modifier en fonction du projet 

pédagogique et de la classe 

concernée). Dans cet exemple la 

consultation du fichier 

grammatical est intentionnel- 

lement freinée afin d'éviter la ruée 

vers l'unique machine... Le 

barème qui attribuera ses points à 

l'élève est à envisager de la façon 

suivante (à titre indicatif) : 

+ __ Phrase sensée (+/-) 2 points, 

+ Phrase grammaticale (+/-) 3 
points, 

* Ajout d'un mot non prévu - 2 
points par mot 

+ Oubli d'une nature prévue - 5 
points 

+ Consultation du fichier - 4 
points. 


Modifications 
possibles 


Pour rendre la leçon plus 
performante et plus efficace à 
long terme, il est souhaitable de 
modifier quelque peu le 
programme. Il est possible par 


” exemple: 


+ de varier la difficulté des 
phrases afin de mieux adapter 
celles-ci au niveau des élèves (cf 
DATA en ligne 400), ou 
d'introduire un choix aléatoire de 
ces phrases, préalablement 
classées en DATA selon leur 
niveau de difficulté. 

+ _ On peut encore imposer à la 
phrase finale, l'ordre d'apparition 
sur l'écran de ses différents 
constituants respect d'un 
schéma syntaxique donné... 

+ Afficher la naturer des mots, 
accompagnée d'une musique 
propre, ou mieux, faire annoncer 
par la machine les différentes 
natures qu'elle propose. 

+ Si la classe possède autant 
d'ordinateurs que d'élèves, le 
calcul des points peut être 
automatisé, chacun entrant sur sa 
machine la phrase qu'il propose : 
ceci complique bien le 
programme, mais le transforme 
en véritable didacticiel. Ce n'était 
bien sur pas notre projet ici. 
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SONT DEUX TRES BEAUX ENFANT 
S,10, VERBE, ARTICLE, NOM, NOM, NOM 


, ADJECTIF,ADJECTIF,ADJECTIF NO 
N-QUALI., ADVERBE 
DATA CONJONCTION, LUCKY LUKE PO 
URSUIVAIT LES 4 DALTON DEPUIS 
LONGTEMPS, 7, VERBE, ARTICLE, NOM, 
NOM, ADJ. NON-QUALIFICATIF, ADVE 
RBE, PREPOSITION 
DATA IL LE CONDUIT AU PENITENC 
IER, 5, VERBE, DETERMINANT, NOM, PR 
ONOM PERSONNEL, PRONOM, REGARDEZ 
OU VOUS METTEZ LES PIEDS, 6, VE 
RBE, VERBE 


Programme “Grammaire” 
Basic étendu 


1 !XX**4X##*44+*4*% PROGRAMME POUR TI 99 
/4A + BASIC ETENDU ****PH.M.* 


20 EENRE, © SOUTIEN DE GRAMMAIRE" 
*XXX 


20 REM HHHARHAAARHARÉARAEHXHARHAHRXA HE XX 
#XkHkxX 


25 CALL CLEAR :: CALL SCREEN(11):: 
DIM PHS$ (15) 
30 RESTORE 490 :: FOR J=1 TO 7 


READ L(J),C(J),M$(J):: NEXT J DATA ARTICLE DEFINI, NOM, PRONOM 
40 INPUT "NBRE D'ELEVES OU DE GRP PERSONNEL, PRONOM, IL TROUVERA 
":NG : PUISQU'IL CHER- CHE BEAUCOUP, 6 
50 FOR I=1 TO NG :: PRINT :"NOM DU , VEREE, VERBE, PRONOM, PRONOM, ADV 
GROUPE";I;"? ";:: INPUT "":NG$ ERBE, CONJONCTION 
(I) :: NEXT I DATA IL FAUT QUE VOUS ME COMPR 
60 CALL CLEAR :: RESTORE 400 E- NIEZ BIEN, 7, VERBE, VERBE, PRO 
70 FOR I=1 TO 12 :: READ PH$(I),A NOM PERSONNEL, PRONOM, PRONOM PE 
:: CALL SOUND(200,196,0):: CALL RSONNEL, ADVERBE, CONJONCTION DE 
SOUND (100,330,0):: CALL SOUND( SUBORDINATION 
200,262, 0) DATA "UN BRUIT EFFROYABLE, ASS 
DISPLAY AT(10,13)ERASE ALL SIZE OUR-DISSANT: TROIS CENTS TONNE 
(14) :"proposition";I :: DISPLAY S QUI RETOMBENT BRUTALEMENT", 1 
AT(17,1):"faire une phrase ave 0, VERBE, ARTICLE, DETERMINANT, AD 
CLS EN elements proposes J. NON-QUALIFICATIF 
.-.." :: FOR K=1 TO 1000 :: NEXT DATA NOM, NOM, ADJECTIF QUALIFIC 
K ATIF,ADECTIF, ADVERBE, PRONOM RE 


B(12);J: :TAB(S5);NATS :: FOR K= 6, VERBE, ARTICLE DEFINI 
1 TO 1000 :: NEXT K :: NEXT J DATA NOM, NOM, ADJECTIF DEMONSTR 
100 CALL CLEAR :: FOR J=1 TO 7 ATIF,ADJECTIF QUALIFICATIF 


110 


120 


130 


400 


DISPLAY AT(L(J),C(J)):M$(J):: 

NEXT J 

DISPLAY AT(24,1):"VOTRE CHOIX? 
FC nl an dois 

CALL KEY(5,S,T):: IF S<49 OR S 

>55 OR T=0 THEN 120 ELSE S=S-4 

8 

ON S GOTO 500, 600, 700, 800, 900, 

1000, 1030 

DATA JE TE SALUE BIEN, 4, VERBE, 

ADVERBE, PRONOM PERS.,PRONOM PE 

RS.,QUAND PARS-TU?, 3, VERBE, CON 

JONCTION, PRONOM PERS 

DATA L'HIPPOPOTAME SE PROMENAI 

T SUR UN FIL, 6, VERBE, DETERMIN 

ANT, ARTICLE, NOM, NOM, PREPOSITIO 

N 

DATA LE GENERAL À PRONONCE UN 
DISCOURS MEMORABLE, 6, VERBE, 

ARTICLE, ARTICLE, NOM, NOM, ADJECT 

IF QUALIFICATIF 

DATA PIERRE ET LA PETITE MARIE 
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DATA 5,2,1- ADJECTIFS, 7,2,2- D. 
ETERMINANTS, 9,2,3- PRONOMS, 11, 
2,4- ADVERBES, 13, 2, 5-CONJONCTI 
ONS/PREPOSITIONS 
DATA 15,2,6- SOLUTION ET SCORE 
»17,2,7- FIN D'UTILISATION 
DISPLAY AT(1,4)ERASE ALL:"** L 
ES ADJECTIFS **" 
DISPLAY AT(3,1):"** QUALIFICAT 
IFS: ss BLEU, 
LANC, ROUGE..." 
DISPLAY AT(6,1):"** DETERMINAT 
IFS (6 ESPECES)": :"1-NUMERAUX 
st …QUNs; DEUX DOUBLE, 
CINQUIEME..." 
DISPLAY AT(11,1):"2-POSSESSIFS 
...MON, NOTRE, SES, LEUR, 
VOS, TON..." 
DISPLAY AT(14,1):"3-DEMONSTRAT 
IFS: CET, CES 
CE, CETTE" 
DISPLAY AT(17,1):"4-RELATIFS: 





d. 


530 


535 
600 


605 


610 


615 


620 


625 
640 
700 


705 


710 


715 


720 


725 


730 


139 


740 


745 


745 
800 


(RARES) 
onument est .." 


LEQUEL m 


DISPLAY AT(20,1) :"5-INTERROGAT 


IFS, EXCLAMATIFS 
?7 QUELS...1" 


DISPLAY AT(23,1): 


...CERTAIN, 
AUTRE. .."; 


NUL 


CALL KEY(5,S,T):: 


535 ELSE 100 


. . « QUELLE. 


"6-INDEFINIS : 
PLUSIEURS, 


IF T=0 THEN 


DISPLAY AT(1,4)ERASE ALL:"*** 


DETERMINANTS ***" 


DISPLAY AT(4,1):"1-ADJ. NON-QU 


ALIFICATIFS: 
OSSESSIFS..." 
DISPLAY AT(11,1) 
EFINIS : 

S, AU, DU" 
DISPLAY AT(14,1) 
NDEFINIS : 

UNE, DES " 
DISPLAY AT(17,1) 
ARTITIFS : 

“ LA, DES " 
DISPLAY AT(22,1) 
UR 1 TOUCHE 


CALL KEY(5,S,T):: 


640 ELSE 100 


NUMERAUX, P 


:"2-ARTICLES D 


LE, LA, LE 


:"3-ARTICLES I 


UN, 


: "4-ARTICLES P 


DU, DE 
F-APPUTER 5 


IF T=0 THEN 


DISPLAY AT(1,4)ERASE ALL:"*** 


LES PRONOMS 


LE EU 


DISPLAY AT(3,1):"1-PRONOMS PER 


SONNELS : 
S, VOUS, 


se 
LE." 


ME, MOI, NOU 


DISPLAY AT(6,1):"2-PR. POSSESS 


IFS 
» LES LEUR..." 


...LE MIEN 


DISPLAY AT(9,1):"3-PR. DEMONST 


RATIFS : 

ELUI=CT,  s2:" 
DISPLAY AT(12,1) 
FS: LEQUEL, QUI, 
DONT, OU..." 
DISPLAY AT(15,1) 
IFS : 

Le QE Prise” 
DISPLAY AT(18,1) 
NIS: .AUCUN, NUL 
RSONNE, L'UN.." 


DISPLAY AT(21,1): 


IAUX : 
pour animal.)"; 


DISPLAY AT(24,1): 
UR 4 TOUCHE"; 
CALL KEY(5,S,T):: 


ELSE 100 


“” .CEEUT, € 


:"4-PR. RELATI 


QUE, QUOI, 


: "5-INTERROGAT 


:5- OUT; : 


:"6-PR. INDEFI 


AUTRUI, PE 


"7-PR. ADVERB 
EN, Y (mis 


Pom APPUYER. S 


IF T=0 THEN 


DISPLAY AT(1,4)ERASE ALL:"#*** 


LES ADVERBES ***" 


805 DISPLAY AT(4,1):"1-ADV. DE MAN 


40 


945 


1000 CALL CLEAR :: 


IERE: ...,-MENT 
,MAL, VITE, ..." 
DISPLAY AT(7,1):"2-ADV. D'INTE 
NSITE, QUANTITE : ..ASSEZ, AU 
TANT, MOINS, PEU, TRES, CO 
MBIEN, ..." 


DISPLAY AT(11,1) 
MPS: ...ALORS, 
JOURD'HUI, TOT 
ENANT, ..." 
DISPLAY AT(15,1): 
...+ AILLEURS, 
» Lis LOI," 
DISPLAY AT(18,1) 
MATION : sas OÙT 
rs BTEN; SOIT::" 
DISPLAY AT(21,1):"6-ADV. DE NE 
GATION: NON, NE" 
DISPLAY AT(23,1):"7-ADV. DE DO 
UTE : s +  PROBA- BLEMENT, SA 
NS DOUTE, 3."$ 
CALL: KEY(5,S;,T):: 
845 ELSE 100 
DISPLAY AT(1,4)ERASE ALL:"**#* 
CONJONCTIONS ***" 
DISPLAY AT(6,1):"1-CONJ. DE CO 
ORDINATION: ET, OU, NI, MAI 
S,CAR,OR, DONC ENSUITE, PUIS, 
AINSI ss 
DISPLAY AT(11,1):"2-CONJ. DE S 
UBORDINATION: SI, SINON, 
COMME, QUAND, QUE, SI BIEN 
QUES. 
DISPLAY AT(18,4):"*** PREPOSIT 
IONS XHkkxxm 
DISPLAY AT(21,1):"A, APRES, AV 
EC, CHEZ, CONTRE DANS, DE, DEP 
UIS, DURANT, EN, ENTRE, SUR, 
SANS, POUR"; 
CALL KEY(5,S,T):: 
945 ELSE 100 


PLUS, EXPRES 


:"3-ADV. DE TE 
BIENTOT, AU 
AVANT, MAINT 


"4-ADV. LIEU: 
DEDANS, ICI 


:*5-ADV. AFFIR 
CERTES, SI 


IF T=0 THEN 


IF T=0 THEN 


PRINT 
E D'UNE SOLUTION: ": 
AE) 
TSsTe 
FOR J=1 TO NG :: 
SPTIT)2 "+", 
INPUT PTI1 
PT(J)=PT(J) +PT1 
FOR K=1 TO 100 
NEXT I 

CALL CLEAR :: FOR I=1 TO NG : 
#: PRINT NOS (I) ,PTIE): 2 52 N 
EXT I 

END 


"AFFICHAG 
:PHS$S( 
: "CALCUL DES POIN 


PRINT NGS$ (J) 


> NEXT J :: 
: NEXT K 
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Georges Goument 








n voir de toutes les 
couleurs : tel pourrait 
bien être le but des deux 

jeux proposés ci- 
dessous. Avant de devenir des 
passe-temps, ils seront proba- 
blement des casse-têtes.… 


Barmélo 1 


Il s'agit d'un jeu de réflexion basé 
sur un système de permutation de 
5 couleurs sur un plateau de 25 
cubes. 


Le principe 


Votre TI choisit une couleur pour 
un cube qu'il va disposer 25 fois 
sur l'écran. Il permuttera les 
couleurs entre 10 et 20 fois. 


Vous vous retrouvez avec des 
cubes multicolores. Le but est 
bien sûr de redonner à chacun sa 
couleur d'origine. 


Utilisation du 
clavier 








E, X, S, D 
Déplacement d'un cube à l'autre 
de la petite croix clignotante ; cette 








Barmélo 1 


10 REM *#AXX#XAXXXXXXX 


11 REM * * 
12 REM * BARMELO 1 * 
.13 REM * x 
14 REM * basic TI * 
15 REM * * 
16 REM * copyright * 
17 REM * * 
18 REM *99 Magazine* 
19 REM * * 
20 REM *G. GOUMENT * 
21 REM * * 


22 REM ***X##XXXXXXXX 


23 CALL CLEAR 
24 IN=0 
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croix détermine le cube qui sert de 
base à la permutation. 


ENTER 

Effectue la permutation de couleur 
selon le principe ci-dessous : 

Le cube joué passe à la couleur de 
valeur inférieure, les 2, 3 ou 4 
contigus passent à la couleur de 
valeur supérieure. 


V 

Compare le cube que vous 
proposez avec le cube d'origine, 
impossible de tricher. 


I 
Pour interrompre la partie. 


Vous n'aurez aucune difficulté 
pour suivre l'évolution du jeu, de 
nombreux commentaires étant 
insérés dans le programme. 


Théoriquement, le nombre 
maximum de coups à jouer pour 
remettre la bonne couleur en place 
est de 100. Votre TI, très 
compréhensif vous en accordera 
150, sachez en profiter. 


Barmélo 2 


Même principe, mais ce jeu 
introduit la troisième dimension 
pour garantir la migraine. Nous 


25 PG=0 

26 NJ=0 

27 FOR I=1 TO 12 

28 CAL] COLOR(TI,1,1) 

29 NEXT I 

30 CALL CHAR(64,"O") 

31 CALL SCREEN(7) 

32 PRINT " georges"::" 

goument":::TAB( 

9) ; "vous propose":: 
:::TAB(9);"C@G@CGGG 
QGGGCG":TAB(9) ; "CBARM 
ELOGG1@" 


33 PRINT TAB(9);"@@GCG@ 


QCGGCGCGG":::::TAB(7) 
; "jeu de reflexion" 
:::TAB(7);'"niveau 
debutant" 


Barmélo(s) 





trouvons ici 48 cubes en 6 
couleurs disposés sur 3 plateaux. 


Le but 


Redonner aux 48 cubes du jeu 
une couleur identique à celle 
choisie par l'ordinateur. 


Le clavier 


1,2, 3 
Choix du plateau (un cube 
clignote) 


F4, à D 
Sélectionne l'un ou l'autre des 


cubes : ils clignotent à tour de 
rôle. 
ENTER 


Réalise la permutation (voir 
Barmélo 1) 


Tv, 1 
Mêmes fonctions que pour 
Barmélo 1 





Attention, ce jeu vous réserve une 


petite complication supplémen- 


taire. 
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34 FOR I=1 TO 12 

35 CALE COLORIS, 1) 

36 NEXT I 

37 CALL COLOR(3,12;13) 

38 FOR I=5 TO 8 

22. CALE COLOR(T,18,13) 

40 NEXT I 

41 GOSUB 523 

42 CALL CLEAR 

43 PRINT "patientez qu 
elques secondes" 

44 FOR I=1 TO 200 

45 NEXT I 

46 CALL HCHAR(23, 3, 32, 
28) 

47 FOR I=1 TO 12 

48 CALL COLOR(I,1,1) 

49 NEXT I 
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RANDOMIZE 

CALL SCREEN(2) 
CU=48 

CD=48 

CE=48 

VE=0 

RESTORE 61 

FOR I=1 TO 5 

READ A 

CALL CHAR(A, "FFFFFF 
FFFFFFFFFF") 

NEXT I 

DATA 40,33, 64, 72,80 
RESTORE 67 

FOR I=1 TO 5 

READ A 

CALL CHAR(A, "010207 
081F207F8") 

NEXT I 

DATA 41,34,65, 73,81 
RESTORE 73 

FOR I=1 TO 5 

READ A 

CALL CHAR(A, "FFOIFD 
U5FS515D555") 

NEXT I 

DATA 42,35, 66, 74, 82 
RESTORE 79 

FOR I=l TO S5 

READ À 

CALL CHAR(A, "555654 
5950644092") 

NEXT I 

DATA 43,36,67,75,83 
RESTORE 85 

FOR I=1 TO 5 

READ A 

CALL CHAR(A, "004800 
20008") 

NEXT I 

DATA 44,37,68,76,84 
CALL CHAR(88, "00002 
4181824") 

PRINT. TAB (25) ;"I- I" 
: TAB (23) ;"v":TAB(23 
Jea; 2. (":TAB(23)::" 
1':TAB(23);:"e. 3: QC; 
TAB(23);"u":TAB(23) 
°"r 4 H" 

PRINT TAB(23);:"S":T 
AB(25);"5 Pp" 
M$="score 000" 
U=1 

v=17 

GOSUB 470 

CALL COLOR(1,12,1) 
CALL COLOR(2,6,1) 
CALL COLOR(3,8,1) 
CALL COLOR(4,8,1) 
CALL COLOR(5, 9,1) 
CALL COLOR(6,13,1) 
CALL COLOR(7,16,1) 


FOR I=9 TO 12 
CALL COLOR(I,8,1) 


NEXT I 


GOSUB 389 
CC=INT((80-40+1)*R 


ND) +40 


CALL SOUND (11, 4600 


/ 10) 

IF CC=40 
IF CC=33 
IF CC=64 
IF CC=72 
IF CC=80 


THEN 112 
THEN 112 
THEN 112 
THEN 112 
THEN 112 


GOTO 104 

CALL HCHAR(6,5,CC) 
CALL HCHAR(6, 6, CC+ 
3) 

CALL HCHAR(6, 7,CC+ 
4) 

CALL HCHAR(5, 5, CC+ 
1) 

CALL HCHAR(5, 6, CC+ 
2) 

X1=-16 

X2=28 

Y=4 

GOSUB 

X1=13 

X2=25 

Y=7 

GOSUB 

X1=10 

X2=22 

Y=10 

GOSUB 

X1=7 

X2=19 

Y=13 

GOSUB 

X1=4 

X2=16 

Y=16 

GOSUB 140 

IF IN-1 THEN 153 
IF VE=1 THEN 153 
GOTO 154 } 
FOR I=X1 TO X2 STE 
P 3 

IF VE=1 THEN 148 
CALL HCHAR(Y, I, CC) 


‘CALL HCHAR(Y,I+1,C 


C+3) 

CALL HCHAR(Y,I+2,C 
C+4) 

CALL HCHAR(Y-1,1,C 
C+tTl) 

CALL HCHAR(Y-1,1I+1 
# CC+2) 

GOTO 150 

CALL GCHAR(Y,I,A) 
IF A<>CC THEN 420 
NEXT I 


IF VE=0 THEN 153 
CALL SOUND (10,3000 
» 2) 

RETURN 

GOSUB 402 
NP=INT((20-10+1)*R 
ND) +10 

FOR P=1 TO NP 

Y=0 
Y=INT((16-4+1) *RND 
) +4 : 

IF Y=4 THEN 165 

IF Y=7 THEN 173 

IF Y=10 THEN 181 
IF Y=13 THEN 189 
IF Y=16 THEN 197 
GOTO 157 

X=0 
X=INT((28-16+1)*RN 


THEN 212 
THEN 212 
THEN 212 
THEN 212 
THEN 212 


UICMrD< 


GOTO 165 

X=0 
X=INT((25-13+1)*RN 
D) +13 


IF X=13 
IF X=16 
IF X=19 
IF X=22 
IF X=25 
GOTO 173 
X=0 


X=INT((22-10+1) *RN 


D) +10 


THEN 212 
THEN 212 
THEN 212 
THEN 212 
THEN 212 


IF X=10 THEN 212 
IF X=13 THEN 212 
IF X=16 THEN 212 
IF X=19 THEN 212 
IF X=22 THEN 212 


GOTO 181 
X=0 
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X=INT((19-7+1) *RND 
)+7 

IF X=7 THEN 212 
IF X=10 THEN 212 
IF X=13 THEN 212 
IF X=16 THEN 212 
IF X=19 THEN 212 
GOTO 189 

X=0 
X=INT((16-4+1) *RND 
) +4 

IF X=4 THEN 212 
IF X=7 THEN 212 
IF X=10 THEN 212 
IF X=13 THEN 212 
IF X=16 THEN 212 
GOTO 197 

NEXT P 

P=21 

GOSUB 477 

GOSUB 411 

GOSUB 477 

Y=10 

X=16 

CALL GCHAR(Y,X,A) 
IF A>33 THEN 218 
A=33 

B=80 

C=12 

GOTO 236 

IF A>40 THEN 223 
A=40 

B=33 

C=6 

GOTO 236 

IF A>64 THEN 228 


IF A>72 THEN 233 
A=72 

B=64 

C=13 

GOTO 

A=80 

B=72 

C=16 

IF P<=NP THEN 289 
CALL COLOR(8,2,C) 
CALL HCHAR(Y,X, 88) 
CALL HCHAR(Y,X,A) 
CALL KEY(3,T,S) 
IF S=-0 THEN 238 
IF T<>86 THEN 246 
VE=1 

GOSUB 117 

GOTO 383 

IF T<>73 THEN 250 
IN=1 

GOSUB 117 

GOTO 451 
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T<>68 THEN 263 
Y<>4 THEN 253 
=28 THEN 238 
Y<>7 THEN 255 
X=25 THEN 238 
Y<>10 THEN 257 
=22 THEN 238 

Y<>13 THEN 259 
X=19 THEN 238 
Y<>16 THEN 261 
X=16 THEN 238 

X=X+3 

GOTO 212 

IF T<>69 THEN 268 

IF Y=4 THEN 238 

Y=Y-3 

X=X+3 

GOTO 212 

IF T<>88 THEN 273 

IF Y=16 THEN 238 

Y=Y+3 

X=X-3 

GOTO 212 

IF T<>83 THEN 286 

IF Y>4 THEN 276 

IF X=16 THEN 238 

IF Y>7 THEN 278 
X=13 THEN 238 
Y>10 THEN 280 
X=10 THEN 238 
Y>13 THEN 282 
X=7 THEN 238 
Y<>16 THEN 284 
X=4 THEN 238 

X=X-3 

GOTO 212 

IF T<>13 THEN 240 

NJ=NJ+1 

IF NJ>150 THEN 442 

CALL SOUND (-130, -4 

, 0, 4000,10,40000,1 

0, 40000, 10) 

CALL HCHAR(Y,X,B) 

CALL HCHAR(Y,X+1,B 

+3) 

CALL HCHAR(Y,X+2,B 

+4) 

CALL HCHAR(Y-1,X,B 

+1) 

CALL HCHAR(Y-1,X+1 

, B+2) 

IF P<>21 THEN 313 

CU=CU+1 

IF CU>57 THEN 300 

CALL HCHAR(1,28,CU 


) 

GOTO 313 

CU=48 

CD=CD+1 

IF CD>57 THEN 306 
CALL HCHAR(1,27,CD 
) 


304 


305 
306 
307 
308 
309 
310 


311 
312 


313 
314 
315 
316 
S27 
318 
19 
320 
321 
322 
323 
324 
325 


CALL HCHAR(1,28,CU 


) 

GOTO 313 

CE=CE+1 

IF CE>57 THEN 442 

CD=48 

CU=48 

CALL HCHAR(1,28,CU 

) 

CALL HCHAR(1,27,CD 

) 

CALL HCHAR(1,26,CE 

) 

WA=Y 

ZA=X 

y=0 

X=0 

IF WA=4 THEN 321 

W=WA-3 

Z=ZA+3: 

GOSUB 359 

IF WA<>16 THEN 323 

IF ZA=16 THEN 334 

IF WA<>13 THEN 325 

IF ZA=19 THEN 334 

IF WA<>10 THEN 327 

IF ZA=22 THEN 334 

IF WA<>7 THEN 329 

IF ZA=25 THEN 334 

IF WA<>4 THEN 331 

IF ZA=28 THEN 334 

W=WA 

Z=ZA+3 

GOSUB 359 

IF WA=16 THEN 338 

W=WA+3 

Z=ZA-3 

GOSUB 359 
WA<>16 THEN 340 
ZA=4 THEN 351 
WA<>13 THEN 342 
ZA=7 THEN 351 
WA<>10 THEN 344 
ZA=10 THEN 351 
WA<>7 THEN 346 
ZA=13 THEN 351 
WA<>4 THEN 348 
ZA=16 THEN 351 

W=WA 

Z=ZA-3 

GOSUB 359 

Y=WA 

X=ZA 


IF P=21 THEN 212 
IF P<NP THEN 205 E 
LSE 206 

CALL GCHAR(W,Z,A) 
IF A>33 THEN 363 
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4 


A=40 

GOTO 373 

IF A>40 THEN 366 
A=64 

GOTO 373 

IF A>64 THEN 369 
A=72 

GOTO 373 

IF A>72 THEN 372 
A=80 

GOTO 373 

A=33 

CALL SOUND(100,110 
:15;=4,;15,;110,15) 
-CALL HCHAR(W,Z,A) 
CALL HCHAR(W,Z+1,A 
+3) 

CALL HCHAR(W,Z+2,2A 
+4) 

CALL HCHAR(W-1,2Z,A 
+1) 

CALL HCHAR(W-1,Z+1 
, At2) 

A=0 

W=0 

Z=0 

RETURN 

N=523 

FOR I=1 TO 15 

CALL SOUND(100,N,5 
) 

N=N+110 

NEXT I 

GOTO 435 

M$=""je " 

U=1 

V=4 

GOSUB 465 
M$="choisi" 

U=2 

v=2 

GOSUB 470 

M$="le CL 

U=3 

V=4 

GOSUB 470 

RETURN 
M$="brouillage" 
U=21 

V=5 

GOSUB 465 

M$="du jeu" 

U=23 

V=7 

GOSUB 470 

RETURN 
M$="termine" 

U=21 

V=6 

GOSUB 465 

M$="a vous de joue 
E" 


U=23 

=2 

GOSUB 470 

RETURN 
M$="incomplet" 
U=20 

V=5 

GOSUB 465 
M$="continuez" 
U=22 

v=5 

GOSUB 470 

M$="la partie" 
U=24 

v=5 

GOSUB 470 

VE=0 

GOSUB 477 

GOTO 210 
M$="partie gagnee" 
U=22 

V=3 
PG=1 

VE=0 

GOSUB 465 

GOTO 455 
M$="score maximum 
” 

U=20 

V=3 

GOSUB 465 
M$="atteint" 

U=22 

v=5 

GOSUB 470 

GOTO 499 
M$="partie nulle" 
U=22 

v=3 

GOSUB 465 

GOSUB 477 
M$="nouvelle parti 
e" 

U=21 

v=2 

GOSUB 470 
M$= "Oo n" 

U=23 

v=7 

GOSUB 470 

GOTO 481 

FOR I=1 TO 5 

CALL SCREEN (4) 
CALL SOUND(10,-1,1 
0) 

CALL SCREEN (2) 
NEXT I 

FOR I=1 TO LEN(MS$) 
CALL HCHAR(U, V+I,A 
SC(SEG$ (M$,I,1))) 
NEXT I 

U=0 


v=0 
MS="" 
RETURN 
FOR I=3 TO 17 
CALL VCHAR(20,I, 32 
2) 
NEXT I 
RETURN 
CALIL, KEY(3,T;S) 
IF S=0 THEN 481 
IF T<>79 THEN 498 
IF IN=1 THEN 488 
FOR I=3 TO 8 
CALE VCHAR{1,1,32; 
6) 
NEXT JT 
GOSUB 477 
CALL HCHAR(1,26,48 
» 3) 
CU=48 
CD=48 
CE=48 
NP=0 
NJ=0 
P=0 
IF IN=1 THEN 154 
GOTO 89 
IF T<>78 THEN 481 
CALL CLEAR 
IF IN=1 THEN 504 
IF PG=1 THEN 506 
PRINT " vous ave 
z tout essaye"::" 
vous ferez peut et 
re mieux"::" u 
ne prochaine fois" 
GOTO 508 
PRINT "alors comme 
ca on abandonne": 
:" ce n est pas ch 
iC DOUÉ MOI "SES 7 
e commencais a ma 
muser"::: 
GOTO 508 
PRINT " que c est 
chouette d avoir": 
:"  un-partenaire 
tres doue"::"jes 
pere jouer souvent 
avec":: 
PRINT " 
vous"::: 
FOR I=1 TO 1000 
NEXT I 
CALL CLEAR 
PRINT " vous avez 
Joue ";NJ;" fois": 


PRINT " vous dev 
lez reussir en"::T 
AB(10);NP*5;" coup 
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TAB(11);"au 

revoir" 
GOSUB 523 
END 
DATA 1,349,294,147 
1, 440, 349,175,2,5 
23;392,;330, 8; 698,35 
87,117,2,466,233,1 
17,1,3949,294;,147,1 
,587,294,147 
DATA 8,523,440,131 
52» 440, 349,175;2;,3 
49,294,147,1,262,1 
96,165,1,466,233,1 
17,8,:392,330,;165, 2 
,392; 330,165 
DATA 2,349,294,147 
r 2r 392, 330, 165, 8,4 
40,,349,175,2,392, 2 
33,131,2,349;,233,;1 
31,2,330,233,131,,8 
: 349, 220,175 
DATA. 2,523,262,131 
5 2r392;196,131,1,4 
40;:220;131;1;,:466;2 
33,131,2,523,440,1 
75,1,.523,440,175,;8 
, 523, 440,175 
DATA, 2,523,262,;:131 
25392 ;196,;131;1;4 
40,220,131,1,466,2 
33,131,6,523,440, 1 
75;2;523;440;:175,2 
,466,233,175 
DATA 1,523,392,330 
s1,587,294,147,2,6 
59,523,440,2,659,5 
23,440,8,659,523,4 
40;:2,699;:330,:165 ;2 
:4606,;233;117 
DATA 1,523,262,131 
:1:587,294,147,8,6 
59,466,131,2,392,3 
30,165,2,392,233,4 
31,1,349,294,147,4 
»330,165,131 
DATA 6,349,220,175 
:0;0,0;0 
RESTORE 515 
READ D,N1,N2,N3 

IF D=0 THEN 532 

IF IN=0 THEN 527 E 
LSE 528 

IF PG=0 THEN 530 
CALL SOUND(275*D,N 
1,10,N2,12,N3,15) 
GOTO 524 
CALL SOUND(-40*D,N 
1,15,N2,15,N3,12) 
GOTO 524 
RETURN 
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j AN=0 


Barmélo 2 


RARHARHAHAAHAARAXX 


BARMELO 2 


BASIC TI 


99 Magazine 


G. Goument 


OÙ OÙ 6 O6 O6 6 OÙ 


* 
* 
* 
* 
* 
Copyright * 
* 
* 
* 
* 
* 
* 


RARHRHARHAAHARHALHXX 


CALL CLEAR 

CALL SCREEN(16) 

RANDOMIZE 

A=0 

B=0 

D=0 c 
P=0 

C=0 

VE=0 
NP=0 


C 
O 


CC=0 
yY=0 
YA=0 
X=0 
XA=0 
U=0 
v=0 
GOSUB 525 
FOR I=1 TO 8 
READ Z,WS$ 
CALL CHAR(Z,WS) 
NEXT I 
DATA 41,7C242438242 
4247C,55,81C3A59981 
818181,57,3C24243C2 
4242424, 65, 7C24243C 
30282424 
DATA 73, 3C202038202 
0203C, 81, 2020202020 
24243C,89,3C2424242 
424243C,128,FFFFFFF 
FFFFFFFFF 
PRINT " georges"::" 
goument":::TAB( 
; "vous propose": 
eu de reflexion'":: 
PRINT " niveau 
champion"::: 
X=12 
FOR I=1 TO 7 
READ À 


_ CALL HCHAR(12,X, A) 


HDI 
ULE 
# 


X 
U 


R 


VALEURS 
J=0 TL 
#2 54 
73 69 


X=X+1 

A=0 

NEXT I 

DATA 41,57,65,55, 73 
, 81,89 

CALL HCHAR(12, 20,50 
) 

FOR I=9 TO 12 

CALL COLOR(I, 7,1) 
NEXT I 

CALL SOUND(300, 523, 
15) 

CALL COLOR(2,13,1) 
CALL COLOR(4, 9,1) 
CALL COLOR(5,5,1) 
CALL COLOR(3,8, 1) 
CALL COLOR(6,10,1) 
CALL COLOR(7,14,1) 
CALL COLOR(8,3,1) 


GOSUB 548 
CALL CLEAR 
GOSUB 541 
M$="patientez quelq 
ues secondes" 
X=2 
GOSUB 529 
CALL CLEAR 
CALL SCREEN (2) 
GOSUB 525 
CALL CHAR(35, "00000 
000000000FF") 
CALL CHAR(36,"FF") 
CALL CHAR(37,"01020 
4081020408") 
RESTORE 88 
FOR I=1 TO 6 
READ O 
CALL CHAR(O, "O00F1F 
3E7CF8F") 
NEXT I 
DATA 40,56, 64, 72,80 
, 88 
PRINT " choix 
#######8#": "couleur 
& & G À me LA 
& & 
) Le LLA & 
g" 
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94 


95 
96 
97 
98 
99 


PRINT " & 
& gen 
SÉSSSSSSS'I"v 
aleurs LES EE à à à à 
A" 
PRINT " & 
6 2e CL 4H 
& 8 
7e LLA & 
gun 
PRINT " 82 5P #% 
& TWe ” 
SSSSSSSSM" 
LE SE à à à à à 


PRINT " & 
& 3 LL ie LL 
L 8 
à ‘dé : LL & 
& LL 
PRINT " $ 
& ” : LL 
FLPPe" 


‘FOR I=1 TO 12 


CALL COLOR(I, 8,1) 
NEXT I 

CALL COLOR(2,13,1) 
CALL COLOR(4, 9,1) 


100 CALL COLOR(5,15,1) 


101 
102 


CALL COLOR(6,14,1) 
CALL COLOR(7,12,1) 


103 CALL COLOR(8,6,1) 


104 


GOSUB 541 


105 CC=0 
106 CC=INT((88-40+1)*R 


ND) +40 


107 CALL SOUND(8,1984, 


108 CC=40 THEN 115 
109 CC=56 THEN 115 
110 CC=64 THEN 115 


111 


CC=72 THEN 115 


112 CC=80 THEN 115 
113 CC=88 THEN 115 
114 GOTO 105 

115 GOSUB 117 

116 GOTO 140 

117 CALL HCHAR(4, 6,CC) 
118 Y=2 

119 FOR I=l TO 3 

120 IF VE=0 THEN 122 
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CALL SOUND (10, 3500 
, 10) 

X=15 

FOR K=1 TO 4 

FOR L=1 TO 4 

IF VE=0 THEN 129 
CALL GCHAR(Y,X,A) 
IF A<>CC THEN 520 
GOTO 130 

CALL HCHAR(Y,X,CC) 
X=X+2 


NEXT L 

IF VE=0 THEN 134 
CALL SOUND(12,1966 
, 20) 

Y=Y+1 

X=X-9 

NEXT K 

Y=Y+2 

NEXT I 

RETURN 

M$="brouillage des 
barres" 

X=5 

GOSUB 529 
NP=INT((30-15+1)*R 
ND) +15 

FOR P=1 TO NP 

J=0 

X=0 

y=0 

J=INT((30-1+1) *RND 
) +1 

IF J>20 THEN 163 
IF J>10 THEN 157 
Y=INT((5-2+1) *RND) 
+2 

IF Y=2 THEN 169 

IF Y=3 THEN 175 

IF Y=4 THEN 181 

IF Y=5 THEN 187 

GOTO 151 
Y=INT((11-8+1) *RND 
)+8 

IF Y=8 THEN 169 

IF Y=9 THEN 175 

IF Y=10 THEN 181 

IF Y=11 THEN 187 

GOTO 157 
Y=INT((17-14+1)*RN 

D) +14 

IF Y=14 THEN 169 
IF Y=15 THEN 175 
IF Y=16 THEN 181 
IF Y=17 THEN 187 

GOTO 163 

X=INT((21-15+1)*RN 

D) +15 

IF X=15 THEN 202 
IF X=17 THEN 202 
IF X=19 THEN 202 
IF X=21 THEN 202 

GOTO 169 

X=INT((20-14+1)*RN 

D) +14 

IF X=14 THEN 202 
IF X=16 THEN 202 
IF X=18 THEN 202 
IF X=20 THEN 202 

GOTO 175 

X=INT((19-13+1)*RN 

D) +13 

IF X=13 THEN 202 


IF X=15 THEN 202 
IF X=17 THEN 202 
IF X=19 THEN 202 
GOTO 181 
X=INT((18-12+1) *RN 
D) +12 

IF X=12 THEN 202 
IF X=14 THEN 202 
IF X=16 THEN 202 
IF X=18 THEN 202 
GOTO 187 

NEXT P 
P=31 

CJ=0 

GOSUB 541 
M$="termine 

us de jouer" 

=3 

GOSUB 529 

GOSUB 541 

GOTO 229 

CALL GCHAR(Y,X,A) 
IF A>40 THEN 207 
A=40 
B=88 

GOTO 225 

IF A>56 THEN 211 
A=56 
B=40 

GOTO 225 

IF A>64 THEN 215 
A=64 
B=56 
GOTO 225 

IF A>72 THEN 219 
A=72 
B=64 
GOTO 225 

IF A>80 THEN 223 
A=80 
B=72 
GOTO 225 
A=88 


. B=80 


IF P<=NP THEN 349 
IF J=0 THEN 229 
CALL HCHAR(Y,X, 32) 
CALL HCHAR(Y,X,A) 
CALL KEY(3,T,S) 
IF S=0 THEN 226 
IF T<>73 THEN 234 
AN=1 

GOTO 494 

IF T<>86 THEN 240 
VE=1 

J=0 

GOSUB 118 

PG=1 

GOTO 499 

IF T<>49 THEN 244 
J=1l 

Y=3 
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GOTO 251 
IF T<>50 THEN 248 
=2 
Y=9 
GOTO 251 
IF T<>51 THEN 254 
J=3 
Y=15 
X=16 
CALL SOUND (20,1966 
#12) 
GOTO 202 
IF T<>69 THEN 267 
IF J=0 THEN 229 
IF J>1 THEN 259 
IF Y=2 THEN 227 
GOTO 263 
IF J>2 THEN 262 
IF Y=8 THEN 227 
GOTO 263 
IF Y=14 THEN 227 
GOSUB 299 
Y=YA-1 
X=XA+1 
GOTO 294 
IF T<>88 THEN 280 
IF J=0 THEN 229 
IF J>1 THEN 272 
IF Y=5 THEN 227 
GOTO 276 
IF J>2 THEN 275 
IF Y=11 THEN 227 
GOTO 276 
IF Y=17 THEN 227 
GOSUB 299 
Y=YA+1 
X=XA-1 
GOTO 294 
IF T<>68 THEN 287 
IF J=0 THEN 229 
G=0 
GOSUB 304 
GOSUB 299 
X=XA+2 
GOTO 293 
IF T<>83 THEN 347 
IF J=0 THEN 229 
G=1 
GOSUB 304 
GOSUB 299 
X=XA-2 
Y=YA 
CALL HCHAR(YA, XA,A 
) 
YA=0 
XA=0 
CALL SOUND(5,1940, 
18) 
GOTO 202 
YA=Y 
=X 
Y=0 
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X=0 

RETURN 

IF J>1l THEN 328 

IF Y>2 THEN 311 

IF G=1 THEN 309 

IF X=21 THEN 227 
RETURN 

IF X=15 THEN 227 
RETURN 

IF Y>3 THEN 317 

IF G=1 THEN 315 

IF X=20 THEN 227 
RETURN 

IF X=14 THEN 227 
RETURN | 

IF Y>4 THEN 323 

IF G=1 THEN 321 

IF X=19 THEN 227 
RETURN 


IF X=13 THEN 227 
RETURN 

IF G=1 THEN 326 
IF X=18 THEN 227 
RETURN 

IF X=12 THEN 227 
RETURN 

IF J>2 THEN 338 
IF Y>8 THEN 332 
IF G=1 THEN 309 
GOTO 307 

IF Y>9 THEN 335 
IF G=1 THEN 315 
GOTO 313 

IF Y>10 THEN 323 
IF G=1 THEN 321 
GOTO 319 

IF Y>14 THEN 341 
IF G=1 THEN 309 
GOTO 307 

IF Y>15 THEN 344 
IF G=1 THEN 315 
GOTO 313 

IF Y>16 THEN 323 
IF G=1 THEN 321 
GOTO 319 

IF T<>13 THEN 229 
IF J=0 THEN 229 
CALL SOUND (120,110 
:15,4,15,110; 15) 
CALL HCHAR(Y,X,B) 
IF P<31 THEN 354 
CJ=CJ+1 

IF CJ>200 THEN 510 
U=Y 

V=X 

Y=0 

X=0 

IF U=2 THEN 362 
IF U=8 THEN 362 
IF U=14 THEN 362 
GOTO 365 

IF V=15 THEN 392 


IF V=21 THEN 396 
GOTO 408 

IF U=5 THEN 369 
IF U=11 THEN 
IF U=17 THEN 
GOTO 372 

IF V=12 THEN 
IF V=18 THEN 
GOTO 413 

IF V=13 THEN 
IF V=14 THEN 
IF V=19 THEN 
IF V=20 THEN 
GOSUB 428 
GOSUB 431 
GOSUB 434 
GOSUB 437 
GOSUB 440 
GOTO 417 
GOSUB 428 
GOSUB 431 
GOSUB 434 
GOSUB 440 
GOTO 417 
GOSUB 428 
GOSUB 437 
GOSUB 434 
GOSUB 440 
GOTO 417 
GOSUB 431 
GOSUB 434 
GOSUB 440 
GOTO 417 
GOSUB 437 
GOSUB 434 
GOSUB 440 
GOTO 417 
GOSUB 428 
GOSUB 431 
GOSUB 440 
GOTO 417 
GOSUB 428 
GOSUB 437 
GOSUB 440 
GOTO 417 
GOSUB 431 
GOSUB 434 
GOSUB 437 


- GOSUB 440 


GOTO 417 
GOSUB 437 
GOSUB 428 
GOSUB 431 
GOSUB 440 
U=Y 

V=X 

U=0 

v=0 

J=0 

JY=0 

A=0 

B=0 
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C=0 

IF P=31 THEN 229 
IF P<NP THEN 193 E 
LSE 194 

CALL GCHAR(U-1, V+1 
, À) 

C=1 

GOTO 447 

CALL GCHAR(U, V+2,A 
) 

=2 

GOTO 447 

CALL GCHAR(U+1, V-1 
/ À) 

=3 

GOTO 447 

CALL GCHAR(U, V-2,A 
) 
C=4 

GOTO 447 

IF U>11 THEN 444 
CALL GCHAR(U+6, V,A 
) 

=5 

GOTO 447 

IF U<7 THEN 481 
CALL GCHAR(U-6,V,A 
) 

C=6 

IF A>40 THEN 450 
A=56 

GOTO 463 

IF A>56 THEN 453 
A=64 

GOTO 463 

IF A>64 THEN 456 
A=72 

GOTO 463 

IF A>72 THEN 459 
A=80 

GOTO 463 

IF A>80 THEN 462 
A=88 

GOTO 463 

A=40 

CALL SOUND(12,1967 
, 20) 

IF C>1 THEN 467 
CALL HCHAR(U-1,V+1 


IF C>2 THEN 470 
CALL HCHAR(U, V+2,A 
) 

GOTO 480 

IF C>3 THEN 473 
CALL HCHAR (U+1,V-1 


IF C>4 THEN 476 
CALL HCHAR(U, V-2,A 
) 


GOTO 480 

IF C>5 THEN 479 
CALL HCHAR(U+6, V,A 
) 

GOTO 480 

CALL HCHAR(U-6, V,A 
) 

IF C=5 THEN 444 
RETURN 


M$="voulez vous re 


jouer OC+ na” 

=3 

GOSUB 529 

CALL KEY(3,T,S) 

IF S=0 THEN 485 

IF T<>79 THEN 498 

GOSUB 541 

CC=32 

AN=0 

CJ=0 

GOSUB 117 

GOTO 105 

M$="annulation de 
la partie" 

X=4 

GOSUB 529 

GOTO 499 

IF T<>78 THEN 485 

CALL CLEAR 

IF AN=0 THEN 506 
CALL SCREEN (9) 

PRINT " alors les 
nerfs craquent":: 
"vous voyez quand 
je le veux'"::" pe 
rsonne ne peut me 


bientot" 

GOSUB 548 

GOTO 510 

CALL SCREEN(13) 

PRINT (7 la part 

ie est gagnee":::" 
vous etes form 

idable"::"  j espe 

re rejouer souvent 


PRINT " av 
ec vousrriies 

GOTO 503 

CALL CLEAR 

NJ=NP*6 

PRINT." J'ai Drou 
ILlleC "NP? Fos": 
" l ensemble des 
s-pliateaux"::°: 
PRINT " vous devie 
z reussir le jeu": 
: [1 en MeNJ; "” 
COURS "22: 

PRINT " vous à 


vez effectue"::TAB 
(7) ;CJ; "permutatio 


IF AN=0 THEN 518 
PRINT " et tout 
cela pour rien" 
GOTO 519 

PRINT "vous vous e 
n etes bien sorti" 
END 

M$="incomplet cont 
inuez le jeu" 

X=3 

GOSUB 529 

GOSUB 541 

GOTO 229 

FOR I=1 TO 12 

CALL COLOR(I,1,1) 
NEXT I 

RETURN 

FOR I=1 TO 5 

CALL COLOR(13,8,1) 
CALL SOUND(5,-1,15 
) 

CALL COLOR(13,1,1) 
NEXT I 

FOR I=1 TO LEN(MS) 
CALL HCHAR(24,X+I, 
ASC(SEGS$(M$,I,1))) 
NEXT I 

FOR I=1 TO 100 
NEXT I 

X=0 

RETURN 

CALL COLOR(13,1,1) 
CALL HCHAR(24,1,12 
8, 32) 

RETURN 

DATA 2,784,2,880,4 
, 988, 6,1047,2,988, 
2,880,2,784,2,880, 
4,784, 6,659;:2,523, 
2)5087,27659,2,;087 


. DATA 4, 523, 6,659, 2 


, 784,2, 820, 2, 988,4 
rs 880,6, 784,2, 659, 2 
r 659, 4, 659, 6, 831,2 
, 659,2, 740, 2, 831 
DATA 2,880, 4, 988, 6 
, 1047, 2, 880, 4, 988, 
6,1047,2, 988,4, 880 
r 6r1175,2, 988,4, 78 
4,6,1047,2, 880 
DATA 2,740,4,831,6 
, 831, 8, 880,0,0 
RESTORE 544 

READ D,N 

IF D=0 THEN 553 
CALL SOUND (D*-50,N 
*4,10,N*2,12,N/4,1 
4) 

GOTO 549 

RETURN 





99 Magazine n° 10 


La disquette 
‘Fichier d'adresses’ 
Texas Instruments 


J-B. Morelle 


‘étant pas un spécialiste de la 
programmation, les renseignements que 
je vais donner ci-dessous concerneront 
uniquement le problème de la saisie de 
ce programme. 


D'autre part comme il existe chez Texas un 
module "Gestion de Fichiers" bien connu par de 
nombreux Texans, il m'a semblé intéressant de 
comparer leurs avantages et inconvénients 
respectifs. 


La disquette "Fichier d'adresses" est en vente à la 
FNAC Wagram et à la Règle à Calcul à Paris au 
prix de 415 F. 


Il est curieux de constater le manque de protection 
de ce logiciel qui peut être copié sans problème. Il 
n'est évidemment pas question de vous 
communiquer le listing de son contenu ne tenant 
pas à avoir, pas plus que 99 magazine, des ennuis 
avec la maison Texas... 


Contenu de la disquette 


La disquette contient 7 programmes : 
° Initifich 
* Fichieradr 
+ Impfichier 
+ Condfich 
* trifichier 
- recherfich 
.+ Contenu 


Programme Initifich 


Il est nécessaire tout d'abord de formater la 
disquette à l'aide du module Disk Manager mais ce 
n'est pas suffisant ! Il faut en effet initialiser la 
disquette vierge à l'aide du programme Initifich et 
elle ne pourra rien contenir d'autre que le fichier 
créé. En effet, si on fait le catalogue de cette 
disquette, la place libre est nulle. 
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PHD S001/FR 


Programme fichieradr 


Pour appeler ce programme, il faut auparavant 
donner le fameux coup de balai : Call files (1), 
New, et Old... 

Apparait alors le menu suivant : 


1 - Recherche 

2 - Mise à jour 

3 - Noms de groupe 

4 - Sortie 

Il y a 13 rubriques par personne plus 10 groupes 
dans lesquels on peut la faire entrer. 

1 - Recherche 


Trois options s'affichent : 


1 - une personne 

2 - par groupe 

3 - toute personne fichée 

Il est nécessaire d'entrer le nom et le prénom 
exacts sinon le programme vous signale qu'il ne 
connait pas la personne. 

Sinon, vous pouvez soit prendre l'option 3 et 
toutes les personnes fichées défilent une par une, 
contrôlées par Enter. Il est certain que si la 
personne cherchée est à la 270ème place, ce sera 
assez long. La solution consiste à utiliser le 
programme Recherfich qui sert uniquement à 
trouver un nom en ne connaissant que les 3 
premières lettres. 


2 - Mise à jour 
Trois options s'affichent : 


1 - Ajouter un nom 
2 - Mise à jour d'un nom 
3 - Effacer un nom 


Un seul commentaire : le nom effacé reste dans le 
fichier (en cas d'erreur), et ne sera supprimé que si 
vous faites tourner le programme condfich. Vous 
pressentez déjà la lourdeur du système ! 

Si vous choisissez l'optiion 2, mise à jour d'un 
nom, on vous demande le numéro de la ligne à 
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changer correspondant à la rubrique qui vous 
intéresse. Il y a 8 rubriques, 3 commentaires et 10 
groupes possibles. 


Programme Condefich 
Trois options apparaissent : 
1- supprimer les noms marqués effacement 


2- suppprimer les noms marqués effacement ou : 


inactifs. 


Là, il y a un risque car les inactifs sont ceux 
n'appartenant à aucun groupe. C'est à dire que si 
vos personnes ne sont dans aucun groupe et que 
vous appuyez sur 2 par erreur, tout votre fichier 
est effacé. L'opération de Condefich est longue. 
Ce programme rétablit en même temps l'ordre 
alphabétique. 


Programme Trifichier 


Il correspond à l'option Analyse de fiches du 
module Gestion de Fichiers. Il permet de faire un 
tri suivant 11 critères et d'imprimer les éléments 
choisis dans l'ordre désiré. 


Programme Impfichier 


Là encore, il est nécessaire de taper en premier 
Call Files(1), etc... Sont demandées ensuite les 
références de l'unité d'impression (par exemple : 
RS232.BA=1200 s'il s'agit d'une imprimante 
série fonctionnant à 1200 baudbs). 


Quatre options sont affichées : 


1- Toutes informations sur le fichier 

2- Nom, adresse, téléphone 

3 - Etiquette 

4- Sortie 

La première option imprime tous les 
renseignements, mais les uns au-dessous des 
autres. Pour avoir un tableau il faut choisir un 
nombre réduit de rubriques car plusieurs colonnes 
sont prévues pour chacune d'elles et elles ne 
tiennent pas sur les 80 colonnes prévues à 
l'impression. 

La deuxième option agit de même mais d'indique 
que les noms, adresses et téléphone. 

Pour la troisième, les étiquettes, il vous est 
demandé leur format et le nombre par rangée. Elles 
sont encadrées par un petit dessin. 


"Fichier d'Adresses' : 
des avantages. 


Chaque rubrique contient beaucoup plus de place 
pour écrire les informations. Il est possible de 
stocker 350 fiches quelle que soit la longueur des 
renseignements saisis, ce qui est appréciable. 
L'extension 32 Ko ne semble pas nécessaire 
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puisque la mienne n'est jamais allumée. La grande 
rapidité d'impression est très utile pour le 
traitement de longs fichiers. 


mais aussi 
des inconvénients 


Très grande lourdeur dans la manipulation des 
programmes. Le possesseur d'un seule unité de 
disquette risque fort de se tromper. Si vous utiliser 
2 lecteurs, il faut mettre le disque de données dans 
le lecteur 1 et le disque programme dans le 2 ; 
Ainsi, vous n'aurez aucune manipulation à faire. 
Au niveau de la saisie des données, le nom de la 
ville et celui du code postal sont systématiquement 
liés ce qui peut-être gênant si vous utilisez ce 
programme pour la gestion de votre cave à vins. 


Avantages du module 
"Gestion de Fichiers" 


Très grande souplesse pour passer de la lecture à 
la modification ou à l'impression des fiches. 
L'impression se fait sur un tableau qui utilise toute 
la largeur de la page. Il est possible de faire des 
tris à l'impression d'un fa\on très pratique. Par 
exemple pour ressortir les juniors d'un club de 
tennis si vous avez saisi tous les membres du club. 


Inconvénients du 
module "Gestion de fichiers" 


Il n'y a que peu de place par ligne pour entrer les 
données. Quinze rubriques seulement, qui, si elles 
sont toutes utilisées réduisent considérablement le 
nombres de fiches disponibles. Par exemple, si 
vous entrez nom, prénom, date de naissance, ville, 
classement, vous allez plafonner à quatre vingt dix 
fiches, ce qui est peu pour une association. 

Il est très lent à l'impression : vous pouvez mettre 
l'imprimante en route et aller faire un tour (près de 
trente minutes pour cent soixante-deux fiches avec 
une Mannesman Tally 132 colonnes 9600 
bauds...) 

Un reclassement alphabétique peut nécessiter vingt 
à trente minutes. 


Conclusion 


Si vous faites de petits fichiers, utilisez le module 
Gestion de Fichiers. Dans le cas contraire, la 
disquette Fichier d'Adresses semble indiquée. 
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Des caractères dans la 
page graphique haute 


Gérard Baroni 
et | 
Jean Marin 


manière de faire coexister 
pacifiquement le mode Bitmap et le 
Basic, en configuration console/Mini-mémoire/ 
lecteur de cassettes. Vous avez de même la 
possibilité de sauvegarder des fichiers d'images 
rapidement sur cassette. 


ans les précédents numéros de "99 
D Magazine", nous vous avons décrit la 





Le propos du présent article est de vous 
permêttre de mélanger du texte avec du 
graphisme Bitmap. Jusqu'à présent, un 
problème se posait à ce sujet; vu le peu de place 
disponible en mémoire vive, les formes des 
lettres disparaissaient lors de l'initialisation du 
mode Bitmap, et il devenait impossible d'écrire. 


Notre façon de résoudre ce problème consiste à 
aller chercher les formes des lettres là où elles se 
trouvent, c'est-à-dire en mémoire morte. 


Un examen des 8Ko de la ROM, et des 18Ko 
des GROMS de la console (trois GROMSs de 
6Ko en console) nous montre que les formes 
des lettres sont en GROM. Dans la GROM, 
nous découvrons deux jeux de caractères: 


1) les grandes lettres de la mire d'introduction. 
Codées sur huit octets par lettre, elles se 
trouvent en GROM de l'adresse >04B4 ou 
se trouve l'espace - code ASCII 32 - huit 
octets nuls, jusqu'en >06B3 où nous 
terminons ce jeu avec le code ASCII 95 
(souligné). Vous remarquerez que ce jeu de 
caractères ne connait pas les minuscules. 

les petites lettres utilisées normalement en 
Basic sont codées sur 7 octets seulement par 
lettre. Elles commencent en >06B4 (code 
ASCII 32 de l'espace) et se terminent en 
>094C (code ASCII 126 - tilde). 
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résolution 


L'accès aux GROMS, qui est décrit dans le 
manuel Editeur/ assembleur, est plus difficile 
que l'accès à la ROM, parce que les GROMS, 
comme la RAM VDP, ne sont pas en prise 
directe avec le microprocesseur. 

Pour le problème qui nous concerne, signalons 
un point important : c'est la nécessité de 
sauvegarder l'adresse courante de la GROM et 
de la restituer après accès à la ROM. En effet, 
notre intrusion détruit cette adresse courante et, 
comme le retour au Basic ne se fait correctement 
que si cette adresse n'a pas été modifiée, vous 
comprendrez l'intérêt de cette opération de 
sauvegarde. L'interpréteur Basic est situé dans 
les GROMS et il est indispensable de ne rien y 
perturber. 

Le programme, dont le listing suit, vous 
permettra, en faisant un CALL 
LINK("TEXTE",A$, V,H,C) de mélanger du 
texte avec votre graphisme Bitmap. 


A$= chaîne à écrire, longueur maximum de 
255 octets; 

V= position verticale, de O à 23, du premier 

caractère de la chaîne; 

position horizontale, de O à 31, du 

premier caractère de la chaîne; 

C= 16 fois couleur des caractères plus 
couleur du fond (entre 0 et 255). 
Exemple : 240 = 15 * 16 + 0, ce qui 
donne des caractères blanc (15) sur fond 
transparent (0). 


H = 


Quelques explications sur 
la routine "TEXTE" 


En premier lieu, on commence à saisir les quatre 
paramètres A$, V, H et C. La chaîne A$ occupe 
un tampon commençant à l'adresse >7B00. 


* le registre RO est mis à zéro pour la saisie; 
+ le registre R1 contient le numéro du 
paramètre à saisir; 
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le registre R2 pointe sur le tampon du texte; 
le registre R3 contient la longueur de Af; 

le registre R4 contient, à la fin des saisies, le 
numéro de la case d'écran 32 * V +H; 

le registre R6 contient, dans son octet haut, 
la couleur C; 

le registre R10 contient l'adresse de retour 
au Basic; 

le registre R11 contient l'adresse de retour 
du sous-programme de saisie. 


Ensuite, on sauvegarde l'adresse courante 
GROM dans le registre RS. Après, suit une 
boucle de transfert des formes lues dans la 
GROM, en fonction du code ASCII, vers 
l'écran. 

Au départ de la boucle se fait le test de sortie de 
cette boucle. La sortie a lieu soit s'il n'y a plus 
de caractères à afficher, soit si l'affichage 
demandé sort de l'écran. 

Les formes de caractères sont obtenues en 
GROM à l'adresse >03B4 + 8 * code ASCII. 
Exemple : espace = 32 -> adresse >04B4 
précédemment citée. 

Remarquez qu'ici nous avons volontairement 
choisi les grands caractères de la mire 
d'introduction, ce qui suppose que le texte 
affiché ne contient pas de minuscules. Si vous 
désirez absolument les minuscules, nous vous 
laissons le soin d'adapter ce programme. Il 
vous faudra changer l'adresse de départ de la 
table en GROM, et le nombre d'octets par 
caractère, 7 au lieu de 8. 


Dans la partie "Transfert GROM/ VDP", le 
registre RO sert d'intermédiaire temporaire dans 
les calculs des adresses GROMS et VDP. 

R1 contient l'adresse de la table des formes 

en RAM VDP; 

R2 pointe sur le buffer "Texte"; 

R3 contient le nombre d'octets restant à 

écrire; 

R4 pointe sur la table d'écran; 

RS et R6 sont inchangés. 


Une fois le transfert terminé, on restaure 
l'adresse GROM et on revient au Basic. 


Avec cette dernière routine et celles étudiées 
ensembles dans les numéros précédents, nous 
pouvons maintenant disposer totalement du 
Bitmap à l'aide du Basic. Les 20Ko de RAM 
disponibles sont actuellement bien utilisés. Il 
nous reste encore de la place en Mini-mémoire 
pour écrire d'autres routines telles que peinture 
de surfaces, aide au dessin ou toute autre 
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routine qu'il vous plaira de créer selon vos 
besoins. 


Ne pas oublier la table REF/DEF: Nom de la 
routine "TEXTE" et adresse d'entrée >7C1C. 


A Ticazur, actuellement, a débuté un cours de 
Jean Marin d'initiation au langage FORTH. Ce 
langage, évolué, nécessite la configuration 
suivante : Mini-mémoire ou Basic étendu, 
extension 32Ko et lecteur de cassettes. 

De plus, Ticazur poursuit, sous l'impulsion de 
Robert Schenck, ses activités "hardware", 
débutées en fin d'année scolaire 1985. 


Source de la routine 


7ADO 
7ADO 
7AD2 0581 
7AD4 0420 
7AD6 6044 
7AD8 0420 
7ADA 601C 
7ADC 1200 
7ADE CO20 
7AEO 834A 
7AE2 045B B “ALI 
7B00 AORG >7B00 
7B00 BSS 
7C1C AORG 
CIC CLR 
7C1E MOV 
7C20 LI 
Fiac 

7C24 LI 
7C26 

7026. 

7C2A 

1C2C 

7C2E R3 

7C30 *R2+,R3 
7C32 R3 

7C34 QE 
7C36 
7C38 
7C3A 
7C3C 
7C3E 
7C40 
7C42 
7C44 
7C46 


AORG >7AD0 
CLR RO 
INC. AI 
BLWP @>6044 


04C0 El 
BLWP @>601C 


DATA >1200 
MOV @>834A,RO 


R1,>0001 
R2,BT 


*RE 
@>604C 


RO, R4 
R4,5 
QE1 


RO, R5 
R5, R4 
QE1 
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@>9802,R5 


R5 
@>9802,R5 


R5 

R5 

R3,R3 

F 
R4,>02FF 


F 
R4, RO 
RO,>1800 


RO 


RO, @>8C02 


RO 
RO, @>8C02 


RO 
@>8800,RO 


E2 

RO, 5 
R4,R1 
R1,8 
R1,11 
RO, R1 

RO 

*R2, RO 
RO,5 

RO, >03B4 


RO, @>9CO02 


RO 


RO, @G>9CO2 


R1 
R1,@>8C02 


R1 
R1,>4000 


R1, @>8CO02 


RO, >0008 


@>9800, @>8C00 


R1,>2000 


R1 
R1, @>8C02 


R1 
R1, @>8CO02 


RO, >0008 
R6, @>8C00 


RO 

E4 

R3 

R4 

R2 

ES 

R5, @>9CO2 


RS 
R5, @>9C02 


*R10 


Exemple d'appel 
de la routine "TEXTE" 


Note : cette routine doit bien 
sûr se trouver en mémoire au 
moment du CALL LINK 


REM PASSAGE EN MODE BITMAP ( 
VOIR 99 MAGAZINE NUMERO 7) 
CALL SCREEN(1) 

CALL LOAD(-31890,56,0) 

CALL CLEAR 

CALL PEEKV(-32766,X,"",-3225 
0,%X,"°,-31745,X,"%,-91741,X, 
FF, eSlas4, KR; "res 2P20. XX) 
CALL POKEV(6912,208) 

FOR I=0 TO 2 

FOR A=0 to 255 STEP 8 

CALL POKEV (A+256*1+6144,A,A+ 
1,A+2,A+3,A+4,A+5,A+6,A+7) 
NEXT A 

NEXT I 

FOR I=0 TO 15 

CALL LINK('"TEXTE", "CARACTERE 
S EN MODE BIT MAP",I,2,I*16) 
NEXT I 

GOTO 240 











e module "Adventure" 
est accompagné de 
différentes versions de 
jeux distribués en 
France, uniquement sur cassettes, 
d'où la déception des heureux 
possesseurs de disquettes, 
obligés de chercher un magnéto- 
phone pour trouver leur chemin 
dans leur aventure préférée. 
Le court programme suivant 
remédie à la situation une fois 
pour toutés, en vous permettant 
de transférer le contenu de la 
cassette sur une disquette. 


Mode d'emploi 


*. mettre, dans DSKI1, une 
disquette initialisée comptant 
au moins 55 secteurs libres; 

* insérer la Mini-mémoire et y 
charger le programme; 

* passer en Basic, OLD CSI 
pour charger la cassette 
désirée. Ne pas s'inquiéter du 
message d'erreur "I/O ERROR 
30": 

* taper CALL LINK("TRANSF 
"), le transfert s'effectue sur la 
disquette avec comme nom de 
programme "PI"; 

e à l'aide. du “DISK 
MANAGER", changer le nom 
du programme (GHOST, 
SAVAGE... par exemple). 


NOTE : le programme ne 
fonctionne pas avec "SAVAGE 
ISLAND Part 2", qui est le jeu le 
plus gourmand en mémoire. 


Détails du 
programme 








Les DATAs du début forment le 
PAB (bloc d'accès aux 
périphériques); 

+ >06 option SAVE Memory 
Image (voir manuel de 
l'éditeur/assembleur, page 
297); 

>0709 adresse du début du 
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Transfert de jeux d'aventures 
de cassette sur disquette 


buffer en mémoire vive vidéo; 

° >3300 nombre d'octets à 
transférer; 

+ >07 longueur du 
(C'DSK1.PI"); 

+ >3B00 adresse en mémoire 
vive vidéo choisie pour y 
mettre le PAB;: 

+ >6028 = VMBW; 

+ _>6038 = DSRLANK. 


nom 


Bon jeu. 
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Denise 
Amrouche 


TRANSFERT DE JEUX D'AVENTURE DE CASSETTE SUR DISQUETTE 


7F00 AORG >7F00 

7F00 0600 P DATA >0600,>0709, 0,>3300,>0007 
7F02 0709 
7F04 0000 

7F06 3300 

7F08 0007 

7F0A 4453 TEXT "DSK1.PT 
7F0C 4B31 

7F0E 2E50 

7F10 4920 

7F12 0200 T LI RO, >3B00 
7F14 3B00 

7F16 0201 LI R1,P 

7F18 7F00 

7F1A 0202 LI R2,2>11 
7F1C 0011 

7F1E 0420 BLWP @>6028 
7F20 6028 

7F22 0206 LI R6, >3B09 
7F24 3B09 

7F26 C806 MOV R6,0@>8356 
7F28 8356 

7F2A 0420 BLWP @>6038 
7F2C 6038 

7F2E 0008 DATA 8 

7F30 045B B XRIT 


701C AORG >701C 

701C 7F32 DATA >7F32,>7FF8 

701E 7FF8 

7EFF8 AORG >7FF8 

7FF8 5452 TEXT "TRANSF'' 

7FFA 414E : 
7EFC 5346 

7FFE 7F12 DATA T 
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Michel 
Teyssou 


ous êtes certainement 
nombreux à apprécier 
les jeux d'aventures 
fonctionnant avec le 
module du même nom. Certes, ils 
ne sont pas graphiques mais ils 
sont cependant très intéressants, 
ne serait-ce que parce qu'ils nous 
obligent à réviser notre anglais. 
Hélas, le temps moyen de 
chargement d'un jeu ne descend 
jamais en dessous de deux 
minutes, et peut aller jusqu'à trois 
minutes ! Je suis sûr que, comme 
moi, vous hésitez longuement 
avant d'en charger un, et que 
quand vous êtes bloqué quelque 
part dans le déroulement de 
l'énigme, vous préférez arrêter 
plutôt que d'en charger un autre. 


Maintenant, plus d'excuses, 
grâce au système que je vais vous 
indiquer, vous pourrez désormais 
charger vos jeux en cinq 
secondes environ. 


Vous devez pour cela avoir sous 

la main : 

+ la Mini-mémoire ; 

+ _le programme SAVE (disquette 
E/A Texas) ; 


+ Le programme DEBUG (dis- 
quette F/A Texas). 


Démarche 
1) mettez la Mini-mémoire ; 


2) choisissez l'option ‘3 MINI 
MEMORY"; 


3) initialisez-la (option ‘3 : 
RE-INITIALISE") ; 
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Transfert de cassette à 
disquette des jeux 
de Scott Adams 


4) chargez DEBUG (option ‘1 : 
DSK1.DEBUGr) ; 

5) charger SAVE (option ‘1 : 
DSKI1.SAVE’). 


Faites FCTN<QUIT> pour 
revenir à la mire et choisissez 
EASY BUG. Avec l'option M 
(MODIFY CPU MEMORY”), 


affichez l'adresse >701F. Vous y. 


trouverez >D8. Il faut y mettre 
>F0 et valider avec <ENTER>. 


Quitter EASY BUG (FCTN 
<QUIT>) et reprenez l'option ‘3 
MINI MEMORY”. Quand vous y 
êtes, choisissez l'option ‘2 
RUN’, et affichez DEBUG 
comme nom de programme... 
<ENTER> (les trois points 
signifient ‘appuyez sur 
<ENTER>"). 


DEBUG est chargé dans la partie 
haute de la mémoire de 32Ko 
(>A000 à >FFFF) alors que 
SAVE est chargé dans la partie 
basse (>2000 à >3FFF). 


Nous allons nous servir de 
DEBUG pour modifier certaines 
parties de SAVE et pour 
visionner en mémoire vive vidéo 
les informations chargées à partir 
de la cassette. 


Avec l'option M de DEBUG, 
affichez le contenu de l'adresse 
>2BB6. Vous trouverez >1000. 
C'est l'adresse de départ en 
mémoire vive vidéo des octets qui 
vont être transférés, il faut mettre 
à la place >0709 car c'est à partir 
de cette adresse que sont chargées 
toutes les données des jeux (voir 









article de Denise Amrouche dans 
le numéro 7 de "99 Magazine"). 


Appuyez sur <ENTER> pour 
valider et, toujours avec l'option 
M, affichez >2CC2. Vous 
trouverez >0206. Vous le 
remplacez par >0460. Appuyez 
sur "espace" pour valider et 
afficher l'adresse suivante 
>2CC4 ; vous y trouvez >0000. 
Il faut y mettre >2CEC et valider 
avec <ENTER>. On va réaliser la 
même opération avec >2D2C... 
>2D2C = >81CA, remplacez par 
>0460 puis "espace" : >2D2E = 
>1302, remplacez par >2D64 et 
<ENTER>. 


Nous y sommes presque, il faut 
maintenant transférer le PAB 
(bloc en mémoire vive vidéo où 
sont inscrites les informations 
relatives au fichier disquette) de 
>0F80 en >0340, car >0F80 se 
trouve à l'intérieur de la zone où 
vont s'inscrire les données de la 
cassette. 


Avec l'option M : 


affichez >2CEE... >2CEE = 
>0F80 mettre >0340... 


affichez >2D00... >2D00 = 
>0F89 mettre >0349... 


affichez >2D66... >2D66 = 
>0F89 mettre >0349... 


Voilà, le programme SAVE est 
opérationnel, il ne lui manque 
plus qu'une information que nous 
lui transmettrons après le 
chargement du fichier cassette. 
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Faites FCTN<QUIT> et 
choisissez ‘TI-BASIC’. Certains 
jeux ont tendance à empiéter sur 
la zone réservée aux disquettes 
(partie numéro 2 de "SAVAGE 
ISLAND", par exemple). Pour 
parer à toute éventualité, faites 
CALL FILES(1)... NEW... puis 
OLD CS1... et chargez le contenu 
de la cassette sans tenir compte 
du message d'erreur en fin de 
chargement. 


Vous êtes en Basic, faites (sans 
numéro de ligne) CALL LINK 
('DEBUG"') et <ENTER>. Cette 
ligne va remonter de deux 
positions et rien ne semble se 
passer. C'est normal, vous êtes 
en Basic et, pour que les codes 
ASCII soient utilisables, il faut 
leur ajouter >60. Appuyez sur la 
lettre <U> qui est la commande 
de DEBUG pour réaliser cette 
fonction. Un point apparait, 
DEBUG est prêt à fonctionner 
avec le Basic. 


Vous pouvez vous servir de 
DEBUG pour lister les données 
inscrites en, mémoire vive vidéo 
à partir de la cassette. 

.M 709V,800.. 

La deuxième adresse est l'adresse 
d'arrêt. Vous pouvez choisir 
n'importe laquelle entre >709 et 
>3FFF. La lettre V indique que 
c'est en mémoire vive vidéo. Les 
données numériques qui se 
trouvent entre les textes 
correspondent à des aiguillages 
d'adresses pilotés par le 
programme principal logé dans le 
module. 


Nous allons, avec DEBUG, 
repérer la fin des données cassette 
et calculer le nombre total d'octets 
à enregistrer. Ce chiffre en 
hexadécimal nous est indispen- 
sable. Vous affichez toujours 
avec l'option M : 

2E00V,3F00... 


Tous les jeux ont des données qui 
dépassent l'adresse >2E00 et qui, 
pour la majorité s'arrêtent entre 
>2E40 et >2FF0. Certaines 
descendent beaucoup plus bas ; 
ce sera à vous de le déterminer. 


56 


Les chiffres commencent à 
défiler. Vous pouvez interrompre 
ce défilement avec la barre 
d'espacement et la reprendre de 
même. À un moment donné, 
vous n'allez plus rencontrer que 
des zéros. Il faut alors repérer la 
première adresse libre après la 
dernière donnée (prendre une 
adresse paire). Vous pouvez 
sortir de toutes les commandes de 
DEBUG en faisant FCTN<X>. 
Faites-le et, quand le point 
apparait, utilisez la commande H 
et affichez : 

XXXX,709... (XXXX) repré- 
sente la première adresse libre 
que vous venez de trouver. Les 
deux chiffres vont être 
additionnés, divisés, multipliés 
par DEBUG mais le seul résultat 
qui nous intéresse est celui de la 
soustraction. Il va vous donner le 
nombre d'octets en hexadécimal 
que nous allons enregistrer sur la 
disquette. 


Avec l'option M, affichez le 
contenu de l'adresse >2BBA : 
2BBA=2000. Mettez à la place 
YYYY qui est le nombre d'octets 
que vous a donné H1-H?2. 
Appuyez sur <ENTER>. Sortez 
de DEBUG avec l'option <Q> et 
<ENTER>. Attention, ne faites 
jamais FCTN<QUIT> car vous 
effaceriez toutes les données qui 
se trouvent en mémoire vive 
vidéo. 


Vous êtes revenu au Basic ; sur la 
ligne du dessus, il y a votre 
commande d'accès à DEBUG. 
Faites la même chose pour 
SAVE : 

CALL LINK('SAVE")... Ne 
vous inquiétez pas du résultat ; 
c'est normal. Toujours à cause du 
Basic, on ne peut pas visionner 
les codes ASCII sans leur ajouter 
>60. Comme SAVE ne comporte 
pas de commande qui permette de 
réaliser cette opération, on va 
travailler à l'aveuglette ! 


Le curseur est le trait blanc qui se 
trouvent à gauche et en bas de 
l'écran. Tapez : 


DSK1.XXXXXXXXXX. 
En cas de doute, vous pouvez 
revenir en arrière avec 


FCTN<S>. (XXXXXXXXXX) 
représente, bien sûr, le nom de 
dix lettres maximum que vous 
avez choisi de donner au 
programme. Appuyez sur 


<ENTER> et SAVE va transférer 
les données qui se trouvent en 
mémoire vive vidéo sur la 
disquette (n'oubliez pas de mettre 
une disquette de travail !). 


Si vous avez commis une erreur 
et que SAVE ne fonctionne pas, 
sortez-en avec FCTN<BACK>. 
Revenez à DEBUG et vérifiez à 
nouveau le contenu de vos 
adresses. 


Si vous avez plusieurs jeux à 
charger, faites FCTN<QUIT> 
entre chaque opération pour 
réinitialiser la mémoire vive vidéo 
afin de déterminer avec précision 
la fin des nouvelles données que 
vous aller charger. Cela 
n'effacera pas SAVE et DEBUG 
qui se trouvent en CPU. Il ne 
vous restera plus qu'à déterminer 
le nombre d'octets du nouveau 
programme et à l'inscrire en 
>2BBA à la place de l'autre. 


Tout cela peut paraître compliqué 
et fastidieux, mais le résultat en 
vaut la peine. N'hésitez pas à 
réaliser ce transfert, vous ne le 
regretterez pas. 


A titre d'exemple, voici les 
données de jeux que je possède. 
Si vous en avez d'autres, 
écrivez-moi ! 


SAVAGE ISLAND 

PARTI1 de >709 à >2E44, 
>273B octets 

PART2 de >709 à >37D2, 
>30C9 octets 


PYRAMID OF DOOM 

De >709 à >2E8A, >2781 octets 
THE GOLDEN VOYAGE 
De >709 à >-2EF4, >27EB octets 


GHOST TOWN 
De >709 à >2E42, >2739 octets 


PIRATE ADVENTURE 
De >709 à >2F80, 2877 octets 


Michel Teyssou 
Arbus 
64230 Lescar 
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Transfert rapide 
d'informations sur 

Alexandre 

ArorÉe cassettes 


a routine en langage Source des routines de transfert 


permettra aux lecteurs fapide Vers une cassette ("SI"), 


pressés de réaliser un 


gain de temps de l'ordre de t/3 en depuis une cassette ("LI"), de 
transférant les images Bit-Map  pyfse "on vr ('CN") et de mise "off" 


(ou toutes autres données situées 


en mémoire vive vidéo) vers une ("CF") du moteur du 
cassette ou inversement, et ce, en 


appliquant les conseils de Gérard m ag ne t ocasse t t e: 
Baroni et Jean Marin, qui ont fait 
un grand travail sur la haute RARAAAAHAAAAAAAAA AAA AAA ERA KR 





résolution et le TI-99/4A. * SI, LI, CSION, CS1OFF * 


* Ne pas oublier de mettre les titres * 


* dans la table des references. * 
HAHRHARHARAAAARARAAAARAÉAAARHA ÉTÉ 


Les sous-programmes s'appellent 
de la même manière "LI" et "SI" 
et ils nécessitent une bonne 
qualité de cassette. Le source est 


riche en commentaires, ce qui  7D00 AORG >7D00 
devrait permettre une compré- 
hension aisée. Il comprend en 7b00 3800 TA DATA >3800 Octets a transferer 


plus les deux sous-programmes 
"CS1 ON" et"CS1OFF", dontla 7722 0000 
présence est appréciable. 


DATA O0 Adresse de debut de 
# transfert 
7D04 O2E0 SI LWPI >83E0 


N.D.L.R.: Dans sa configuration 7D06 83E0 


actuelle, la routine transfère 7D08 0201 LI  Rl,TA 

14336 octets (>3800) à partir de 7D0A 7D00 

l'adresse O (en mémoire vive 7b0c 04c0 CLR RO 

vidéo). Il est toutefois possible de box 0202 LI R2,>300 \ 


modifier ces paramètres en 


"POKant", après chargement en TDF 0500 

mémoire de la routine, le nombre 7D12 0208 LI R8,>1E19 Code de SBZ 25 
d'octets à l'adresse 32000 7D14 1E19 

(>7D00) et l'adresse de base du  7D16 0203 LI  R3,21 

bloc à transférer à l'adresse 7D18 0015 

32002 (>7D02). Par exemple, 7p1A 0620 BL (G@>13BA 


pour transférer un bloc de 7 
mémoire de 1000 octets (>3E8) PEAR 


situé à l'adresse 2200 (>898), ii PIE 1D16 mn ve nu 

faut employer l'instruction : - as ee RO, >15E2 

CALL LOAD (32000,3,232 7D24 0300 LIMI 1 Interruption 
8,152) 7D26 0001 

puisque 3 * 256 + 232 = 1000 et * niveau 1 : le TMS 
8*256+152=-2200. * 9900 effectue un 
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*XXX 
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7FFO0 434E TEXT "CN 
7FF2 2020 
7FF4 2020 

7FF6 7EAC DATA >7EAC 
7FF8 4346 TEXT "CF 
7FFA 2020 
7FFC 2020 
7FFE 7EB8 DATA >7EB8 
701E AORG >701E 
701E 7FE0 DATA >7FEO0 


HÉARHAHAARRARRRRRAHRHERERERAARHAHARREHRHEHEREXX 


* Le TMS 9901 est le generateur d'in- 
* terruptions dans le TI-99. Pour re- 
* gler la frequence des interruptions 
* 11 faut lever le bit du controle 

ce qui met le TMS. 
* 9901 en mode horloge et nous permet 


* (0) du CRU a 1, 


d'ecrire ou de lire le contenu du 
registre d'horloge a l'aide de LDCR 
ou STCR. Ce contenu est represente 
par les bits de 2-15 duùu CRU. Ce re-= 
gistre est decremente a chaque cy- 
cle d'horloge, et quand il atteint 
(0) il est reinitialise a sa valeur 


initiale, 


ROM du TI, 


et une interruption est 


et puisque le branche- 


ment se fait a l'adresse >4 qu'on 


ne peut pas modifier, 
cile d'accelerer les programmes LI 
et SI au dela d'une limite ou le 

TMS 9900 n'aura pas le temps d'ef- 
fectuer son travail entre deux in- 


terruption. 
HARHRHHARHÉAARARERARRHAARARARARARHRHRRRHAHH REX 


* 
* 
* 
* 
* 
* 
* 
* 
* generee. 
* 
* 
* 
* 
* 
* 
* 
* 
* 


H OÙ Ù Ù *  * 


END 


* 
* 
* 
* 
* 
* 
* 
* 
Dans l'etat actuel de la * 
* 
* 
LS 
* 
* 
* 
* 
* 
* 


11 est diffi- 





Courrier des Lecteurs 


Ne pensez-vous pas que 
l'informatique des loisirs et du 
vrai amateur se situe plus chez les 
petits ordinateurs huit bits, avec 
un langage assembleur encore 
élémentaire et du Basic simple qui 
permet de créer des programmes 
“Do it yourself”, que du côté de 
la nouvelle génération Macintosh 
et de la copie Atari 520ST qui 
sont tellement puissants et 
professionnels que leur perfection 
tue l'esprit du bricoleur ? Ils sont 
livrés sans Basic et s'adressent à 
des gens qui consomment des 
logiciels tout faits et achètent des 
souris et autres extensions très 
cher parcequ'il ne savent pas 
programmer. L'informatique 
amateur finira peut-être un jour 
comme la passion des 
radio-amateurs ; les radios 
transistors sont devenus si bon 
marché et si complexes qu'on ne 
les construit plus soi-même 
comme par le passé. La photo 
amateur a connu le même sort ; 
aujourd'hui, les agrandissements 
des photographies en couleurs 
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sont plus difficiles à faire que les 
tirages noir et blanc d'autrefois, 
et nécessitent un équipement 
important parceque la photo s'est 
perfectionnée, alors que les 
copies couleurs sont très bon 
marché dans les grandes surfaces 
ce qui fait que très peu 
d'amateurs font encore leurs 
tirages couleurs eux-mêmes. 
Ainsi, la micro informatique avec 
des programmes écrits en Basic 
était intéressante tant que 
l'amateur apprenant le Basic avait 
plus de chance qu'un utilisateur 
de bureau ignorant. L'amateur 
cherche souvent à faire le 
maximum avec des frais 
minimums, en y mettant de 
l'enthousiasme. Le TI-99 avec 
son Basic, son générateur de 
sons à trois voix et bruits, ses 
seize couleurs et ses lutins, 
permet de créer plus facilement 
des programmes soi-même que le 
Commodore 64 qui oblige à taper 
d'interminables séries de chiffres 
à "POKer", ou de consommer 
des programmes commerciaux. 


H.-H. Umstätter - Genève 


Il convient tout d'abord de faire 
deux petites mises au point : le 
TI-99/4A n'est pas un ordinateur 
8 bits puisque le TMS 9900 est 
un processeur 16 bits et 
l'assembleur qui l'équipe est loin 
d'être élémentaire puisqu'il s'agit 
d'une version modifiée (affichage 
2*40 colonnes) de celui qui 
équipe les mini-ordinateurs de la 
marque. Ceci n'est bien sûr pas 
valable si vous parlez de 
l'assembleur ligne par ligne de la 
mini-mémoire. 


Il est vrai que les micro- 
ordinateurs sont de plus en plus 
complexes mais il est encore 
parfaitement possible, pour un 
amateur, de programmer un 
Macintosh (en fait, et 
contrairement à ce que l'on 
pourrait penser, il y a beaucoup 
de points communs entre un TI et 
un Macintosh). 
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(gratuites) 


Ventes 


Vends TI-99/4A, Basic étendu, 
manuels en français, module 
"Treasure Island", cordon 
magnéto, manettes de jeux, 5 
cassettes "99 Magazine”, 
nombreux jeux sur cassettes, 
nombreux livres : 1500 FF 
(valeur réelle : 2700 FF). 


Bruno Alvas - 4, allée de 
Champagne - 78170 La Celle St 
Cloud - tél.: 39.69.75.11. 


Vends ou échange Rotor Raider 
(150 FF), Ant Eater (150 FF). 
Achète (ou échange) Popeye, 
Pole Position, Speech 
Synthesizer et modules 
américains Miner 2049, Pacman, 
Computerwar, Jumpman Junior, 
Story Machine, Congo Bongo, 
Baseball, Blasto, Hustle, Black 
Jack and Poker, Touch Typing 
Tutor, Munch Mobile, Physical 
Fitness, Sneggit. 


Philippe Tenand - 2 bis, rue de 
l'Egalité - 94300 Vincennes - 
Tél.: 808.17.25. 


Vends TI-99/4A, boîtier 
d'extension avec lecteur et 
contrôleur de disquettes, 
extension de mémoire 32Ko, 
Basic étendu, huit modules de 
jeux, manettes de jeux, prix à 
débattre. Offre divers livres sur le 
TI et des programmes sur 
disquettes. 


Alain Leydier - 43 bis, rue Jean 
Jaurès - 42150 La Ricamarie - 
Tél.: 77.80.28.75. 


Vends TI-99/4A (1000 FF), câble 
magnéto (80 FF), module Basic 
étendu avec manuel français 
(550 FF), modules “"Lunar 
Lander" (80 FF), "Solar System" 
(100 FF), "Parsec" (200 FF), 
manettes de jeux (120 FF). Le 
tout 2000 FF avec livres. 
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Pierre-Yves Billard - 11, 
carrefour Prudhomme - 91000 
Bondoufle - Tél.: 60.86.10.93. 


Vends TI-99/A4 (12/83), Basic 


étendu, joysticks Texas et câble 


magnéto : 1700 FF. 

Boîtier d'extension, mémoire 
32Ko, lecteur de disquettes, 
disquettes, Editeur/assembleur et 
boîte de rangement pour 
disquettes : 5700 FF. 

Interface Centronics, imprimante 
GP SOA et divers (papier, 
rubans, etc.) : 1800 FF. 
Modules (Parsec, Star Trek, 
Super Demon Attack, ...), 4 
cassettes Epsilon Software (Sun 
Games, ...), 5 cassettes de 
programmes divers, Rubis sacré, 
adaptateur pour joysticks Atari et 
Joystick Gun Shot Vulcan : 
1000 FF. 

Livres sur le TI: Boîte à outils, à 
l'affiche, 102 programmes, 99 
Magazine, Shift 3: 100 FF. 


J-M. Sarrobert - 90, avenue des 
Montagnys - Les Bougeries - 
74200 Allinges - Tél.: (50) 
71.71.00 poste 470 (heures de 
bureau). 


Vends boîtier d'extension, carte 
32Ko, contrôleur de disquettes, 
lecteur de disquettes : 4500 FF. 
RS232C : 1200 FF. Seïkosha 
GP100A : 1500 FF. Modules de 
jeux, crayon optique, Editeur/ 
assembleur, U.C., Basic étendu, 
l'ensemble : 9000 FF, 


Gérard Cauvin - impasse du 
Quartier - Le Bosquet - 30200 
Bagnols sur Ceze - Tél.: (66) 
89.83.92 (HR). 


Vends TI-99/4A bon état 
(Décembre 83), câble magnéto, 
prise péritel, Basic étendu + 
manuel, Mini-mémoire, nom- 
breux programmes en 
cartouches : Startrek, Mash, 


Parsec, TI Invaders, Chisholm 


Petites annonces 


LL 








trail, Tombstone city, Soccer et 
nombreux programmes sur 
cassettes et "99 Magazine" 1 à 
10 : 3700 FF. 


Olivier Guerret - 113, rue du 
Colonel de Rochebrune - 92500 
Rueil-Malmaison - Tél.: 751. 
88.59. 


Vends modules Basic étendu + 
manuel en français : 500 FF. 
FootBall : 120 FF. Blasto : 
120 FF. 


T. Martel - 12, rue Bonne Santé - 


76620 Le Havre - Tél.: 
35.45.30.58. 
Vends TI-99/4A, boîtier 


d'extension, carte mémoire 
32Ko, carte RS232, contrôleur 
de disquettes, lecteur de 
disquettes interne, synthétiseur 
vocal, manettes de jeux, 
imprimante GP 100A, modules 
Mini-mémoire, Foot, Echecs, 
Music Maker, Speech Editor, 
Basic Etendu, Editeur/Assem- 
bleur, cassettes de jeux, 
nombreux livres, numéros 1 à 9 
de 99 Magazine. 


Jean-Claude Hocquet - 9, allée de 
la tonnelle - 59650 Villeneuve 
d'Ascq - Tél.: 20.91.63.58 après 
17H30. 


Vends TI-99/4A état neuf, 
manettes de jeu, magnétophone 
avec câble, 11 modules de jeux 
(Aventure, Echecs, Blasto, 


_ Parsec, Star Treck, etc.), Basic 


par soi-même, "Les techniques de 
programmes de jeux" 1 et 2, 99 
Magazine 1 à 9, le tout 2000 FF 
(à débattre). 

C. Boismoreau - 11, rue de la 
Clef - 75005 Paris - Tél.: 
45.71.59.69 aux heures de 
bureau. 


Vends boîtier d'extension 


périphérique, contrôleur et lecteur 
de disquettes, module Disk 
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Manager, disquettes, carte 
RS232/Centronics d'origine, 
câble RS232/Imprimante type 
Seïkosha, Mini-mémoire avec 
cassette et livre de Denise 
Amrouche "Initiation au langage 
assembleur", gestion de fichiers, 
livre "Pratique de l'ordinateur 
familial Texas Instruments" 
niveau 1 et niveau 2. 


Philippe Mechelaere - 06, rue des 
Saints Sauveurs - 92260 
Fontenay aux Roses - Tél.: 
43.50.88.18 après 19H ou 
Sam/Dim toute la journée. 


Vends TI-99/4A, Basic étendu, 
Mini-mémoire, Editeur/assem- 
bleur, Logo, Basic Graphic, 
extension 32K0, interface Para., 
synthétiseur, six modules de 
gestion, trente modules de jeux, 
livres et revues, moniteur noir et 
blanc, imprimante Seïkosha 
GP50. L'ensemble : 8000 FF, ou 
détaillé. 

Jean Reibel - 9, square V. 
Fleming - 92350 Le Plessis 
Robinson - Tél.: 631.46.11. 


Vends TI-99/4A parfait état 
(12/83), magnéto, manettes, 
extension 32K0, sortie parallèle 
avec leurs divers cordons et 
câbles. Modules Basic étendu, 
Fichiers, Statistiques, Mini- 
mémoire, Connect Four, Othello, 
Echecs, Parsec, avec leurs 
notices. Cassettes Basic par 
soi-même, Extended Basic, Aide 
à la programmation N° 1, Line by 
Line Assembler, Cassettes 99/A, 
B,C,Det E, 9 cassettes avec la 
revue "99", livres divers. Le tout 
- valeur 9170 FF - bradé 
4000 FF. Urgent. 


François Dodivers - 330, allée 
des Nids - Domaine du Cap Sicié 
- 83500 La Seyne sur mer - Tél.: 
94.25.18.09. 


Vends module Basic étendu 
fabriqué aux USA avec le manuel 
complet permettant sa parfaite 
utilisation. Etat neuf, peu servi, 
Le tout pour 750 FF environ à 
débattre. 


Patrick Giraud - 3, clos des 
mésanges - 78280 Guyancourt - 
Tél.: 30.44.11.75 après 18h. 
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Vends TI-99/4A avec extension 


32K0, neuf jeux d'arcades (dont 
un inédit en France), deux jeux 
de reflexion, 
Mini-mémoire, magnétophone, 
plusieurs cassettes (contenant des 
jeux, des programmes de 
calculs...) et de nombreux livres : 
série des "99 Magazine”, 
Initiation au Basic, langage 
assembleur, Basic étendu... 
Alimentation et câbles de liaisons 
inclus. Prix envisagé : 3800 FF. 


Yves-Luc Perrève - 3, allée des 
Marronniers - 91940 Les Ulis - 
Tél.: 69.28.37.15. 


Vends TI-99/4A + manettes de 
jeux + Parsec + Munchman + TI 
Invaders + Burger Time + Echecs 
+ "99 Magazine” + livres : 
2000 FF. Mini-mémoire 
500 FF. Synthétiseur de voix + 
Speech Editor : 800 FF. Tunnels 
of Doom : 300 FF. Pirate's 
Island : 200 FF. 


M. Lailheugue - 30, domaine de 
Bel Abord - 91380 Chilly 
Mazarin - Tél.: 64.48.61.81. 


Vends, le tout en excellent état, 
TI-99/4A Péritel, magnéto Philips 
Data 6600 avec cordon, boîtier 
avec câble interface, extension 
32Ko, interface RS232, lecteur 
de disquettes, contrôleur et 
module DISK MANAGER. 
Modules Basic Etendu, LOGO 2, 
Early learning fun, Beginning 
grammar, Zero Zap, Aligator 
mix, Music Master, Number 
magic, Personal record keeping. 
Cassettes le Basic par soi-même, 
Basic étendu, jeux d'entreprise, 
99/C, 99/D, 99/7, revues "99 
Magazine" et diverses, manettes 
de jeux. 

Etudie toutes propositions. 


M. Beguin - R.N. 96 - Napollon 
- 13400 Aubagne - Tél.: 
42.03.73.60 heures bureau. 


Vends TI-99, Mini-mémoire, 
Basic étendu, dix modules, 
cassettes Texas Instruments, livre 
Minimem et une vingtaine de 
livres pour TI, 200 programmes 
environ sur cassettes, tous les 
câbles. 3900 F possible sur 
quatre mois. 


Jean-Pierre Diot - 47, rue 


Basic étendu, . 


Jacquart - 51100 Reims. Tél.: 
26.02.69.48. 


Achats 


Cherche (échange ou achat) 
modules, programmes (Basic 
simple ou étendu). Réponse 
assurée. 


Thierry Debran - 7, rue de la 
Fontaine - 12000 Rodez - Tél: 
(65) 42.05.32 (vers 20 h). 


Achète, séparement ou ensemble, 
console TI-99/4A, prise Péritel, 
alimentation, module diagnos- 
tique (urgent), modules divers 
(Statistiques, etc.), cassettes Test 
de math 1 et 2, Test de physique 
1, techniques et programmes de 
jeux (avec livrets), boîtier 
d'extension, cartes interfaces 
série et parallèle, contrôleur de 
disquettes, lecteur de disquettes, 
imprimante, disquettes diverses, 
MODEM. 


Michel Voisin - 22, route de 
Venerque - 31190 Auterive - Tél.: 
61.08.21.88. 


Recherche imprimante d'occasion 
pour un enfant ayant un 
TI-99/4A. 


Alain Barrau - 101, rue 
Saint-Lazare - 75009 Paris - Tél.: 
42.85.79.25. 


Achète cartouches de jeux. 
Cherche, en particulier, jeu 
d'Echecs. 


Fabrice Roussot - 2, résidence 
Vincennes - 77330 Ozoir-la- 
Ferrière. NS 


Divers 


Recherche schéma de mémoire 
vive extérieure pour TI-99/4A. 


Philippe Escaich - Lescure - 
09420 Rimont - Tél: (61) 
96.31.95. 


Abonné "99 Magazine" souhaite 
connaître possesseur TI-99/4A 
région Orléans. 


Jean-Noël Mérour - 12, rue de la 
Corne - 45650 Saint-Jean-Le- 
Blanc - Tél.: 38.66.73.96. 
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Plus besoin du boitier d'extension périphérique TEXAS 


Connectez directement sur votre T1/994A un contrôleur de dis- 
quettes pouvant recevoir 2 lecteurs de disquettes D.D./D.F. 
5"1/4 360 ko. Permet la lecture de toutes les diquettes des 
programmes Texas existants. 

L'ensemble comprenant le contrôleur et une unité de dis- 
quettes 4.500 F [: L'unité de disquette supplémentaire 360 Ko 


2.500 F C (garantie 1 an pièces et main-d'œuvre) Interface pour 


imprimante 
RS 232 


Coffret pouvant contenir 2 unités de disquettes ou parallèle 


Contrôleur de disquettes Mémoire 52 k 


Unité centrale TI 99/4A Module Logo 2 











ss MODULE SUPERGRAPH 


MINI-MEMOIRE Un nouveau basic étendu avec 35 fonctions supplémentaires 


Ce module ne se contente pas de vous offrir 4 Ko de mémoire RAM permettant de tracer lignes, cercles, ellipses, axes, diagram- 
(alimentée par pile) permettant la sauvegarde des programmes mes en barres ou circulaires. Ce basic graphique présente 2 ca- 
et données lorsque vous éteignez l'ordinateur... ractéristiques très utiles: une copie d'écran, graphiques et 
Il a aussi : textes (codes ASCII), Vpoke et Vpeek accès direct à la Ram de 
e 4Ko de memoire morte (ROM) et 6 Ko de memoire morte graphi- contrôle écran 1200F[] 
que (G - ROM) contenant des utilitaires tres intéressants : 
— accès possible à l'extension 32 K en TI basic ; £ 

— chargement de programmes-objets écrits en assembleur, soit BASIC ETENDU 
sur mini-mémoire, soit sur extension 32 K ; Module comprenant un langage de programmation renforçant le 
— utilisation de PEEK et POKE, appel de sous-programmes habi- Basic du TI 99. 40 commandes supplémentaires, accès au langa- 
tuellement non accessibles ; ge assembleur. (Entrées/sorties). Sous-programmes, stockage, spri- 
— programme de recherche d'erreurs (Easy Bug - Debug). tes, traitement d'erreurs. Expressions ce cé LET multiple. Intro- 
Le modèle avec manuel + manuel assembleur sur mini- ductions multiples. Acces à l'extension 800F[] 
mémoire 























- LOT N° 4 INDISPENSABLE 

MEMOIRE 32 K Module BASIC ÉTENDU manuel en français 

Fonctionne avec le basic étendu. * e _K7 Basic par soi-même 

Elle est indispensable pour la programmation en logo. Si l'on pos- + K7LunarLander2 

sède la mini-mémoire ou l'assembleur, elle permet d'adresser des e_K7 Introduction aux jeux sur T1 99 n° 1 

ter rammes en assembleur et de les exécuter. 

e module 

LOT N° X 

——_— Module supergraph + Mémoire 
LOGO 2 (module) 32 K exteme 

Enseignez à votre ordinateur : formes, couleurs, musique, procédu- 

res, caractères dessinés, variables de tous genres, constructions 


grammaticales et arithmétiques... LOT N° Z TOUT LE LOGO 
le module logo Q | Module logo + mémoire 32 K 1995F0 


BON DE COMMANDE — 99 M/7 


Ces prix sont indicatifs et peuvent être modifiés sans préavis. Produits disponibles 
dans la limite de nos stocks en magasin. Participation aux frais de port et d'expédi- 
tion en recommandé express pour les logiciels : + 30 F. Se renseigner pour les colis 
ue au-dessus de 5 kg ainsi que pour les expéditions à l'étranger. > 
Code Postal …. LA RÈGLE A CALCUL : 65/67, bd Saint-Germain, 75005 PARIS 
Tél. : 325.68.88 - Télex : ETRAV 220064 F / 1303 RAC. 
Livraison des produits disponibles sous 8 jours. Parking gratuit Maubert-Lagrange. 






































